1.1.2.x P(x) (a+b x^2)^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    270040,       4486]
NotebookOptionsPosition[    265862,       4373]
NotebookOutlinePosition[    267567,       4426]
CellTagsIndexPosition[    267524,       4423]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   RowBox[{
    SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758230749171176`*^9, 3.5758233482775*^9, {3.613327218550954*^9, 
   3.6133272231709604`*^9}, 3.614282334464916*^9, 3.637089239358961*^9, {
   3.63718608251597*^9, 3.6371860873675785`*^9}, {3.6372961338379884`*^9, 
   3.637296139681322*^9}, {3.637344894980813*^9, 3.63734490909162*^9}, 
   3.698957575583933*^9, 3.699331188316843*^9, 3.699380604029868*^9, {
   3.700772902911004*^9, 3.7007729039250064`*^9}, {3.7104380298356133`*^9, 
   3.71043804900671*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "+", "2"}], "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
   3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
   3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
   3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
   3.521138107168577*^9, 3.521138138788622*^9}, {3.5211381923486967`*^9, 
   3.5211381938886986`*^9}, {3.5211382265587444`*^9, 
   3.5211382265587444`*^9}, {3.521343667321047*^9, 3.5213436675910473`*^9}, {
   3.5214684233945236`*^9, 3.521468423644124*^9}, {3.521498726078348*^9, 
   3.5214987342371626`*^9}, 3.5214990694817514`*^9, {3.521499270144904*^9, 
   3.5214992712057056`*^9}, {3.5215003013379154`*^9, 3.521500301712316*^9}, {
   3.5219976927814455`*^9, 3.521997693251446*^9}, {3.5219986558127937`*^9, 
   3.521998658082797*^9}, {3.5219987574129357`*^9, 3.5219987574129357`*^9}, {
   3.5232922837046824`*^9, 3.523292285514685*^9}, {3.523298890391301*^9, 
   3.5232988913273025`*^9}, {3.523298964090622*^9, 3.523298964761423*^9}, {
   3.5233014330961895`*^9, 3.523301438584998*^9}, {3.5233014732858562`*^9, 
   3.5233014821282706`*^9}, {3.5233018663696966`*^9, 
   3.5233018673680983`*^9}, {3.5233178387762012`*^9, 3.523317850106217*^9}, {
   3.5247091405725665`*^9, 3.5247091412745676`*^9}, 3.5247095617205048`*^9, {
   3.5247096993243446`*^9, 3.5247096993243446`*^9}, 3.5247101411715193`*^9, {
   3.5247654024623036`*^9, 3.5247654024623036`*^9}, {3.5256248949224505`*^9, 
   3.525624895332451*^9}, 3.525624956932537*^9, {3.525624997382594*^9, 
   3.525624997382594*^9}, {3.5265768995329633`*^9, 3.5265768997357635`*^9}, {
   3.5274449513982077`*^9, 3.5274449516166086`*^9}, {3.527742184189887*^9, 
   3.527742184189887*^9}, {3.5277856900514727`*^9, 3.527785690311473*^9}, {
   3.527787932786621*^9, 3.5277879372666273`*^9}, {3.535600011169888*^9, 
   3.5356000208099017`*^9}, {3.5356000872099943`*^9, 3.535600110770027*^9}, {
   3.5356021148428335`*^9, 3.5356021148428335`*^9}, {3.535602582773488*^9, 
   3.5356026094135256`*^9}, {3.535639887330123*^9, 3.5356398881569242`*^9}, {
   3.535657579350357*^9, 3.535657579568757*^9}, {3.5374009905182686`*^9, 
   3.5374010070982914`*^9}, 3.5374013786488113`*^9, {3.537404282362877*^9, 
   3.5374043178629265`*^9}, 3.5374051365640726`*^9, {3.53740692019657*^9, 
   3.537406922556573*^9}, {3.5374071828969374`*^9, 3.5374071834169383`*^9}, 
   3.537407709367675*^9, 3.5374078548978786`*^9, {3.5374209940349827`*^9, 
   3.537420994404983*^9}, {3.5374210688650875`*^9, 3.537421088775115*^9}, 
   3.537459232708495*^9, {3.5374904451880465`*^9, 3.537490445438047*^9}, {
   3.537893051358388*^9, 3.537893051517397*^9}, {3.57583098979558*^9, 
   3.5758311004621744`*^9}, {3.5758314050683093`*^9, 3.575831406160311*^9}, 
   3.5758316276183004`*^9, {3.5758316601443577`*^9, 3.575831660393958*^9}, {
   3.5761899315768027`*^9, 3.5761899384068127`*^9}, {3.576190475217564*^9, 
   3.576190487547581*^9}, {3.5761906313577824`*^9, 3.57619065829782*^9}, {
   3.5761915708090973`*^9, 3.5761915727691*^9}, {3.5761916757792444`*^9, 
   3.5761916757792444`*^9}, {3.576191714499299*^9, 3.5761917162893014`*^9}, 
   3.576193018021124*^9, {3.5761931740813427`*^9, 3.576193209531392*^9}, {
   3.576193357191599*^9, 3.5761933649116096`*^9}, {3.576195786705*^9, 
   3.576195786905*^9}, 3.5762164166703854`*^9, {3.5762171961114764`*^9, 
   3.576217221471512*^9}, {3.5762199064577713`*^9, 3.5762199083777733`*^9}, {
   3.576219940747819*^9, 3.576219940747819*^9}, {3.576355648938896*^9, 
   3.576355649098897*^9}, {3.576372395889512*^9, 3.576372416359541*^9}, {
   3.576375171973398*^9, 3.5763751842734156`*^9}, {3.576375553633933*^9, 
   3.576375574993963*^9}, {3.5763782066964483`*^9, 3.5763782069064484`*^9}, 
   3.6368259343028884`*^9, 3.637089267350562*^9, {3.6370903589870005`*^9, 
   3.6370903589870005`*^9}, {3.637204066767187*^9, 3.6372041015416484`*^9}, 
   3.6373449485618773`*^9, {3.6373452086817555`*^9, 3.6373452159651723`*^9}, {
   3.6375526730550175`*^9, 3.637552673303031*^9}, 3.6385658393048105`*^9, 
   3.6989575650353293`*^9, {3.6991225433696446`*^9, 3.6991225435766563`*^9}, {
   3.699331166570405*^9, 3.6993311685828085`*^9}, {3.699380592228324*^9, 
   3.699380593127375*^9}, {3.699830613100087*^9, 3.6998306134900875`*^9}, {
   3.699831119164976*^9, 3.699831119164976*^9}, {3.7004275579081917`*^9, 
   3.700427558656993*^9}, {3.700773150176241*^9, 3.7007731504414415`*^9}, {
   3.7007922184446163`*^9, 3.700792218634617*^9}, 3.710438120761814*^9, 
   3.7104382644940357`*^9, 3.7417198990929623`*^9, {3.741726938685604*^9, 
   3.741726940781724*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.518646163266424*^9, 3.518646178492051*^9}, 3.518646644012469*^9, {
   3.5186466815305347`*^9, 3.5186467324970245`*^9}, {3.5255875999924393`*^9, 
   3.525587604844048*^9}, {3.5260656055333147`*^9, 3.526065605823315*^9}, {
   3.5356001190500393`*^9, 3.53560011941004*^9}, {3.5356395364699063`*^9, 
   3.535639540806714*^9}}],

Cell[TextData[{
 "Rule 1.1.2.x.1: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "+", "2"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496539487018721*^9, 3.4965395223187704`*^9}, {3.4966001213614845`*^9, 
   3.4966001362815056`*^9}, {3.4966047635399923`*^9, 
   3.4966048329500895`*^9}, {3.496604896730179*^9, 3.496605019710351*^9}, {
   3.496605050490394*^9, 3.4966050527103972`*^9}, {3.4966066606926484`*^9, 
   3.496606694832696*^9}, 3.496606873362946*^9, {3.4966081836347804`*^9, 
   3.496608250534874*^9}, {3.496608418375109*^9, 3.496608441025141*^9}, {
   3.4966322809467688`*^9, 3.4966322818867702`*^9}, {3.4968592460220995`*^9, 
   3.4968592640557313`*^9}, {3.4968593076422076`*^9, 
   3.4968593113862143`*^9}, {3.496859384233942*^9, 3.496859384233942*^9}, {
   3.518223900967896*^9, 3.518223909467908*^9}, 3.5182817155426493`*^9, {
   3.518285874431555*^9, 3.518285899625599*^9}, {3.5182860969191456`*^9, 
   3.518286138321618*^9}, {3.518286898517355*^9, 3.518286898517355*^9}, {
   3.5182870794776726`*^9, 3.5182870794776726`*^9}, {3.518469530324359*^9, 
   3.5184695402943726`*^9}, {3.5184751824166822`*^9, 
   3.5184752026967173`*^9}, {3.5184768778636603`*^9, 3.518476918735732*^9}, {
   3.51864635421076*^9, 3.5186463558487625`*^9}, {3.5211382176687317`*^9, 
   3.5211382205087357`*^9}, {3.5214987812400455`*^9, 
   3.5214987812400455`*^9}, {3.521998888253119*^9, 3.521998888253119*^9}, {
   3.5233014976566973`*^9, 3.5233014976566973`*^9}, {3.5247091445817738`*^9, 
   3.5247091445817738`*^9}, {3.524709699932746*^9, 3.524709699932746*^9}, {
   3.5247654133823185`*^9, 3.5247654133823185`*^9}, {3.525624999252597*^9, 
   3.525624999252597*^9}, {3.5277424355843287`*^9, 3.5277424355843287`*^9}, {
   3.535600843671054*^9, 3.535600843671054*^9}, {3.5356020906827993`*^9, 
   3.5356020970728083`*^9}, {3.5356026443635745`*^9, 
   3.5356026443635745`*^9}, {3.5356398819481134`*^9, 3.535639882712515*^9}, 
   3.5356575900831757`*^9, {3.53740754169744*^9, 3.5374075668974752`*^9}, {
   3.5374211306951737`*^9, 3.5374211375951834`*^9}, {3.5758311068737855`*^9, 
   3.5758311175442047`*^9}, {3.5758314090775166`*^9, 
   3.5758314090775166`*^9}, {3.5761906784678483`*^9, 
   3.5761906784678483`*^9}, {3.5761917285993185`*^9, 
   3.5761917285993185`*^9}, {3.576193221081408*^9, 3.576193221081408*^9}, {
   3.576193375671624*^9, 3.576193375671624*^9}, {3.5762172467815475`*^9, 
   3.5762172467815475`*^9}, {3.5762199610578475`*^9, 
   3.5762199610578475`*^9}, {3.5763724197995453`*^9, 3.576372420049546*^9}, {
   3.5763751934434285`*^9, 3.5763751934434285`*^9}, {3.576375561993944*^9, 
   3.576375561993944*^9}, {3.63709036177416*^9, 3.63709036177416*^9}, {
   3.637204107469659*^9, 3.637204107469659*^9}, {3.637345220283419*^9, 
   3.6373452207254443`*^9}, {3.6990619539369135`*^9, 
   3.6990619563170495`*^9}, {3.699124258137724*^9, 3.699124258385738*^9}, 
   3.699331320745476*^9, 3.699380648999148*^9, {3.699830616688093*^9, 
   3.699830617078094*^9}, {3.6998311170745726`*^9, 3.6998311170745726`*^9}, {
   3.7004275625257998`*^9, 3.7004275628222*^9}, {3.700773164543866*^9, 
   3.700773165043067*^9}, {3.700792228603631*^9, 3.700792229013632*^9}, 
   3.710438995714859*^9, {3.741719949635854*^9, 3.741719949875867*^9}, {
   3.74172694962823*^9, 3.74172694980424*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", " ", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              SuperscriptBox["x", "2"]}]}], ")"}], "p"]}], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4958399855843487`*^9, 3.495840155344586*^9, 
   3.495840624735243*^9, {3.4958474296047697`*^9, 3.495847433754776*^9}, {
   3.4958476539050837`*^9, 3.495847660315093*^9}, {3.4958482220958796`*^9, 
   3.4958482231858807`*^9}, {3.495848257515929*^9, 3.4958482607459335`*^9}, 
   3.4959261390123196`*^9, 3.4959262745925093`*^9, 3.4959264909328117`*^9, 
   3.4959265843129425`*^9, 3.495926967463479*^9, {3.496184978535224*^9, 
   3.496185020185282*^9}, {3.4961873840085917`*^9, 3.496187409278627*^9}, {
   3.4961890232008867`*^9, 3.4961890250708895`*^9}, 3.4961956176127515`*^9, {
   3.4961956815728407`*^9, 3.496195696542862*^9}, {3.4961957791729774`*^9, 
   3.4961957920929956`*^9}, 3.496195845773071*^9, 3.518405474905692*^9, {
   3.51840566597596*^9, 3.5184056974360037`*^9}, {3.518405737026059*^9, 
   3.5184057718861084`*^9}, {3.5184058668262415`*^9, 3.518405869606245*^9}, {
   3.518474939165455*^9, 3.518474949695473*^9}, {3.518474980162327*^9, 
   3.5184749818939295`*^9}, {3.5186461872280664`*^9, 
   3.5186462239349313`*^9}, {3.5186462556341867`*^9, 
   3.5186463116226854`*^9}, {3.5186468118699636`*^9, 
   3.5186468129619656`*^9}, {3.5186468443804207`*^9, 
   3.5186468801668835`*^9}, {3.5188834282085204`*^9, 3.5188834428185406`*^9}, 
   3.5188905291484613`*^9, {3.5188908372288933`*^9, 3.518890840348897*^9}, {
   3.521498794827669*^9, 3.5214987966372724`*^9}, {3.521500837242457*^9, 
   3.5215008547456875`*^9}, {3.524709145330575*^9, 3.524709147155778*^9}, 
   3.5247095625161057`*^9, 3.5247096025253754`*^9, {3.5247097005411468`*^9, 
   3.524709701165148*^9}, 3.5256249626225452`*^9, {3.5256250169126215`*^9, 
   3.525625046652663*^9}, {3.5277877398363514`*^9, 3.527787747546362*^9}, {
   3.535600034589921*^9, 3.5356000558999505`*^9}, 3.5356021247128468`*^9, {
   3.535602618323538*^9, 3.535602636973564*^9}, 3.535639688741774*^9, {
   3.5374010955384154`*^9, 3.537401126038458*^9}, {3.5374011816885357`*^9, 
   3.5374012356886115`*^9}, {3.5374043272629395`*^9, 
   3.5374043424729614`*^9}, {3.537404412143059*^9, 3.537404447203108*^9}, 
   3.5374049441438036`*^9, {3.5374049778538504`*^9, 3.537405014353902*^9}, {
   3.537405361844388*^9, 3.537405422514473*^9}, 3.537405466594535*^9, {
   3.5374054977145786`*^9, 3.5374055014245834`*^9}, {3.537406590916109*^9, 
   3.537406623666155*^9}, {3.5374066630462103`*^9, 3.5374066653962135`*^9}, {
   3.53742099924499*^9, 3.537421003544996*^9}, {3.53745860085761*^9, 
   3.5374586332976556`*^9}, {3.5374586707877083`*^9, 
   3.5374586712977085`*^9}, {3.537459234868498*^9, 3.5374592366385*^9}, 
   3.575831092880561*^9, {3.575831261298457*^9, 3.575831268006469*^9}, 
   3.5758314098107176`*^9, {3.57619052925764*^9, 3.5761905466976643`*^9}, 
   3.576190596447734*^9, 3.5761906941278706`*^9, {3.576193297291515*^9, 
   3.576193307341529*^9}, {3.5762172332915287`*^9, 3.5762172349215307`*^9}, {
   3.5763724277095566`*^9, 3.5763724306795607`*^9}, {3.576375195983432*^9, 
   3.576375211283454*^9}, {3.6370892681896105`*^9, 3.6370892689896564`*^9}, {
   3.6372040848028193`*^9, 3.637204087174023*^9}, {3.6373449568583517`*^9, 
   3.637344959860524*^9}, {3.6385658398408413`*^9, 3.638565840400873*^9}, {
   3.698957599826319*^9, 3.6989576000113297`*^9}, {3.6993312083316784`*^9, 
   3.699331208347278*^9}, {3.6993806133138847`*^9, 3.699380618463894*^9}, {
   3.7104381218238754`*^9, 3.710438122335904*^9}, {3.710438264508036*^9, 
   3.710438264517037*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.518475243178789*^9, 3.518475247765197*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Pq_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{"Pq", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "p"}]}], ",", "x"}], 
      "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Pq", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", 
      RowBox[{"-", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495839738475589*^9, 3.4958405008250694`*^9, {3.495847490784856*^9, 
   3.4958474999948683`*^9}, {3.4958477172451725`*^9, 3.495847721615179*^9}, {
   3.495848224085882*^9, 3.4958482277058873`*^9}, {3.4958482626259365`*^9, 
   3.4958482686359444`*^9}, 3.4959261054722724`*^9, {3.4959262905725317`*^9, 
   3.4959262958725395`*^9}, 3.495926443222745*^9, 3.4961849395451694`*^9, 
   3.496185884976493*^9, 3.4961888731806765`*^9, {3.4961890260508904`*^9, 
   3.4961890290708947`*^9}, {3.496191957967628*^9, 3.4961919600576305`*^9}, 
   3.49619205250776*^9, 3.4961952203321953`*^9, {3.496195426482484*^9, 
   3.496195433172493*^9}, {3.496195586822708*^9, 3.496195595732721*^9}, 
   3.496195754542943*^9, 3.4966189754082823`*^9, {3.4966198797795486`*^9, 
   3.496619907439587*^9}, {3.4968579645422487`*^9, 3.4968579680210547`*^9}, 
   3.5171911044266214`*^9, 3.518211198418105*^9, 3.5182420941409807`*^9, {
   3.518281849687285*^9, 3.518281849874485*^9}, {3.5182861978669233`*^9, 
   3.518286207226939*^9}, 3.518286893072945*^9, 3.518287077449669*^9, {
   3.518405919376315*^9, 3.5184059327163334`*^9}, 3.518406000866429*^9, {
   3.5184061023365707`*^9, 3.518406115016588*^9}, {3.5184065135071464`*^9, 
   3.518406515547149*^9}, {3.518406800569559*^9, 3.5184068071395683`*^9}, {
   3.518455696848171*^9, 3.518455715349804*^9}, {3.5184695492443857`*^9, 
   3.5184695498143864`*^9}, {3.5184750261356077`*^9, 
   3.5184750485372467`*^9}, {3.5184750988941355`*^9, 3.518475163072648*^9}, 
   3.5184752811336555`*^9, {3.518475372144215*^9, 3.518475372315816*^9}, 
   3.518476122541534*^9, 3.5184761841304417`*^9, {3.5184762225533094`*^9, 
   3.51847622274051*^9}, {3.5184764457117014`*^9, 3.518476449268508*^9}, {
   3.5186463404515357`*^9, 3.5186463437119417`*^9}, {3.5186463743971953`*^9, 
   3.5186464507437296`*^9}, {3.5186469255005636`*^9, 3.518646996402688*^9}, {
   3.5188834532285557`*^9, 3.518883467828576*^9}, {3.518890540078477*^9, 
   3.5188905826085367`*^9}, {3.518890830198883*^9, 3.5188908328088865`*^9}, {
   3.518891390959668*^9, 3.518891394309673*^9}, 3.5202847651693087`*^9, {
   3.520285003400935*^9, 3.5202850059700823`*^9}, {3.5208997381370683`*^9, 
   3.520899740707072*^9}, {3.521660257927198*^9, 3.521660259867201*^9}, 
   3.5219988599330792`*^9, 3.522442292804413*^9, {3.5233015037279077`*^9, 
   3.523301508327915*^9}, 3.523322644531102*^9, {3.524709150618984*^9, 
   3.5247091535829897`*^9}, {3.5247093503585353`*^9, 
   3.5247093737573757`*^9}, {3.524709408679037*^9, 3.5247094106290407`*^9}, {
   3.524712568613783*^9, 3.524712573028591*^9}, {3.524761860287345*^9, 
   3.524761863717349*^9}, {3.5247654793724113`*^9, 3.524765481852415*^9}, {
   3.5256250193826246`*^9, 3.5256250500926676`*^9}, 3.5256255683533936`*^9, {
   3.5277424141030912`*^9, 3.5277424172542963`*^9}, {3.5277877535163703`*^9, 
   3.527787765556387*^9}, 3.529381208336618*^9, {3.5356001300400543`*^9, 
   3.535600196300147*^9}, 3.5356002344202003`*^9, 3.535600268880249*^9, {
   3.535602284793071*^9, 3.5356023143431125`*^9}, {3.5356023837532096`*^9, 
   3.5356023923232217`*^9}, {3.5356397141542187`*^9, 
   3.5356397169622235`*^9}, {3.5356397864447455`*^9, 3.5356398018419724`*^9}, 
   3.5356400146731462`*^9, {3.53565756401553*^9, 3.5356575648267317`*^9}, 
   3.53565764377847*^9, {3.537401151318494*^9, 3.5374011700485196`*^9}, {
   3.53740127729867*^9, 3.5374013490787706`*^9}, {3.5374014341088896`*^9, 
   3.53740145567892*^9}, 3.537401846519467*^9, {3.537402075299787*^9, 
   3.53740211313984*^9}, {3.537402143759883*^9, 3.5374021466998873`*^9}, {
   3.5374022340400095`*^9, 3.5374022427300215`*^9}, {3.5374022754000673`*^9, 
   3.537402343240162*^9}, {3.53740237781021*^9, 3.5374023986102395`*^9}, {
   3.537402438800296*^9, 3.5374024443003035`*^9}, {3.5374024822903566`*^9, 
   3.5374025073503923`*^9}, {3.537402537830435*^9, 3.537402602520525*^9}, {
   3.5374026415705795`*^9, 3.5374026419505806`*^9}, {3.5374028378008547`*^9, 
   3.5374028427908616`*^9}, {3.5374028826709175`*^9, 3.53740289916094*^9}, {
   3.5374031666713147`*^9, 3.537403237441414*^9}, {3.5374032698214593`*^9, 
   3.5374032729314637`*^9}, {3.537403411771658*^9, 3.537403463761731*^9}, {
   3.537403508831794*^9, 3.5374035633618703`*^9}, {3.537403669252019*^9, 
   3.5374036798420334`*^9}, 3.537403913792361*^9, {3.5374066950662546`*^9, 
   3.537406858726484*^9}, 3.5374069576466227`*^9, {3.5374069980766788`*^9, 
   3.537407001206683*^9}, {3.5374100229109135`*^9, 3.53741004883095*^9}, {
   3.5374101193510485`*^9, 3.5374101285010614`*^9}, 3.5374102374312143`*^9, {
   3.5374189347020993`*^9, 3.537419129172372*^9}, 3.537419197522467*^9, {
   3.5374592386985035`*^9, 3.537459254558525*^9}, 3.5374596088090215`*^9, {
   3.5374641854354286`*^9, 3.5374641997054486`*^9}, {3.5374642345654974`*^9, 
   3.5374642746355534`*^9}, {3.5374652467269144`*^9, 3.53746530068699*^9}, {
   3.537485392010972*^9, 3.5374854053609905`*^9}, 3.5374855606412086`*^9, {
   3.5761908962981534`*^9, 3.5761909317882032`*^9}, {3.576190966758252*^9, 
   3.5761909799782705`*^9}, {3.576191349588788*^9, 3.576191392498848*^9}, {
   3.576191703019283*^9, 3.5761917105392933`*^9}, {3.576191800199419*^9, 
   3.576191802389422*^9}, {3.576191840289475*^9, 3.576191861629505*^9}, {
   3.576192614040558*^9, 3.576192617270563*^9}, {3.576193228211418*^9, 
   3.57619327976149*^9}, {3.576193321221548*^9, 3.5761933301815605`*^9}, {
   3.576203717790106*^9, 3.576203873400324*^9}, {3.5762039845904794`*^9, 
   3.5762039916904893`*^9}, {3.576217256401561*^9, 3.5762172687715783`*^9}, {
   3.5762199868678837`*^9, 3.576219990977889*^9}, {3.576372440719575*^9, 
   3.5763724521795907`*^9}, {3.5763752205334663`*^9, 3.576375234543486*^9}, {
   3.576375527093896*^9, 3.5763755305439005`*^9}, {3.576375666642892*^9, 
   3.5763756698128967`*^9}, {3.6368255477486796`*^9, 
   3.6368255504942846`*^9}, {3.6370899634903793`*^9, 3.637089964479436*^9}, {
   3.637204125927491*^9, 3.63720416458836*^9}, 3.637270153821639*^9, {
   3.637344979993675*^9, 3.6373449835418787`*^9}, 3.6373450768022127`*^9, {
   3.637345229946972*^9, 3.637345250528149*^9}, {3.6373453051742744`*^9, 
   3.6373453071433873`*^9}, 3.6373456824798555`*^9, 3.6373516984739504`*^9, {
   3.637358778272892*^9, 3.6373587788199234`*^9}, {3.637359416532398*^9, 
   3.637359416717409*^9}, 3.6386797446151543`*^9, 3.64270211354062*^9, {
   3.6989577460166807`*^9, 3.698957785775955*^9}, {3.698957863922425*^9, 
   3.6989579043057346`*^9}, 3.6990518906325493`*^9, 3.6993312300157166`*^9, 
   3.6993312830090094`*^9, {3.6993806232531023`*^9, 3.6993806318019176`*^9}, {
   3.699830619745699*^9, 3.6998306201512995`*^9}, 3.6998311131433654`*^9, {
   3.7004162675720725`*^9, 3.700416283688901*^9}, 3.7104378173374596`*^9, {
   3.7104383084895515`*^9, 3.7104383429995255`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SubscriptBox["P", "q"], "[", 
       RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.521070903512648*^9, 
   3.5210709252746863`*^9}, 3.521070971825168*^9, {3.5210731408529778`*^9, 
   3.5210731428653812`*^9}, {3.5211320572901077`*^9, 
   3.5211320822301426`*^9}, {3.521132813901167*^9, 3.5211328157011695`*^9}, {
   3.521138107168577*^9, 3.521138138788622*^9}, {3.5211381923486967`*^9, 
   3.5211381938886986`*^9}, {3.5211382265587444`*^9, 
   3.5211382265587444`*^9}, {3.521343667321047*^9, 3.5213436675910473`*^9}, {
   3.5214684233945236`*^9, 3.521468423644124*^9}, {3.521498726078348*^9, 
   3.5214987342371626`*^9}, 3.5214990694817514`*^9, {3.521499270144904*^9, 
   3.5214992712057056`*^9}, {3.5215003013379154`*^9, 3.521500301712316*^9}, {
   3.5219976927814455`*^9, 3.521997693251446*^9}, {3.5219986558127937`*^9, 
   3.521998658082797*^9}, {3.5219987574129357`*^9, 3.5219987574129357`*^9}, {
   3.5232922837046824`*^9, 3.523292285514685*^9}, {3.523298890391301*^9, 
   3.5232988913273025`*^9}, {3.523298964090622*^9, 3.523298964761423*^9}, {
   3.5233014330961895`*^9, 3.523301438584998*^9}, {3.5233014732858562`*^9, 
   3.5233014821282706`*^9}, {3.5233018663696966`*^9, 
   3.5233018673680983`*^9}, {3.5233178387762012`*^9, 3.523317850106217*^9}, {
   3.5247091405725665`*^9, 3.5247091412745676`*^9}, 3.5247095617205048`*^9, {
   3.5247096993243446`*^9, 3.5247096993243446`*^9}, 3.5247101411715193`*^9, {
   3.5247654024623036`*^9, 3.5247654024623036`*^9}, {3.5256248949224505`*^9, 
   3.525624895332451*^9}, 3.525624956932537*^9, {3.525624997382594*^9, 
   3.525624997382594*^9}, {3.5265768995329633`*^9, 3.5265768997357635`*^9}, {
   3.5274449513982077`*^9, 3.5274449516166086`*^9}, {3.527742184189887*^9, 
   3.527742184189887*^9}, {3.5277856900514727`*^9, 3.527785690311473*^9}, {
   3.527787932786621*^9, 3.5277879372666273`*^9}, {3.535600011169888*^9, 
   3.5356000208099017`*^9}, {3.5356000872099943`*^9, 3.535600110770027*^9}, {
   3.5356021148428335`*^9, 3.5356021148428335`*^9}, {3.535602582773488*^9, 
   3.5356026094135256`*^9}, {3.535639887330123*^9, 3.5356398881569242`*^9}, {
   3.535657579350357*^9, 3.535657579568757*^9}, {3.5374009905182686`*^9, 
   3.5374010070982914`*^9}, 3.5374013786488113`*^9, {3.537404282362877*^9, 
   3.5374043178629265`*^9}, 3.5374051365640726`*^9, {3.53740692019657*^9, 
   3.537406922556573*^9}, {3.5374071828969374`*^9, 3.5374071834169383`*^9}, 
   3.537407709367675*^9, 3.5374078548978786`*^9, {3.5717974355084715`*^9, 
   3.571797435858472*^9}, {3.5718614030584593`*^9, 3.5718614033284597`*^9}, 
   3.5758365582521505`*^9, {3.5758365935822*^9, 3.575836634562258*^9}, {
   3.575836999212768*^9, 3.5758370017627716`*^9}, {3.575837282243164*^9, 
   3.5758372846731677`*^9}, 3.575837452513403*^9, {3.5764713615635448`*^9, 
   3.5764713615635448`*^9}, 3.5764713948835917`*^9, {3.6370964731507106`*^9, 
   3.637096473850751*^9}, {3.637096509769805*^9, 3.637096509769805*^9}, {
   3.6372543195841565`*^9, 3.637254321206559*^9}, {3.637263028470092*^9, 
   3.637263046509124*^9}, {3.637269505224541*^9, 3.6372695163071747`*^9}, {
   3.637287154690321*^9, 3.637287154900321*^9}, {3.637296166718869*^9, 
   3.6372962156496677`*^9}, 3.637296262106325*^9, {3.6372965148817825`*^9, 
   3.63729653686604*^9}, {3.6372967459870014`*^9, 3.637296795881855*^9}, {
   3.63729762801045*^9, 3.637297630491592*^9}, {3.637298162849041*^9, 
   3.6372981628500414`*^9}, {3.6372995533105707`*^9, 
   3.6372995553866897`*^9}, {3.63729982936136*^9, 3.6372998312874703`*^9}, {
   3.637299940846737*^9, 3.637299940846737*^9}, 3.6373470677800903`*^9, {
   3.6373475219760685`*^9, 3.6373475507187123`*^9}, {3.637347877298392*^9, 
   3.6373478785714645`*^9}, {3.6373515890226903`*^9, 
   3.6373515897347307`*^9}, {3.637353896279658*^9, 3.6373539091013913`*^9}, {
   3.637354015956503*^9, 3.6373540165035343`*^9}, {3.6373543290644116`*^9, 
   3.637354329841456*^9}, {3.637541983799627*^9, 3.637542033875491*^9}, {
   3.6375423950901513`*^9, 3.6375424006734705`*^9}, {3.6375426508697805`*^9, 
   3.6375426510597916`*^9}, {3.637542763348214*^9, 3.6375427637982397`*^9}, {
   3.637552814778123*^9, 3.6375528155461674`*^9}, {3.6375528699102764`*^9, 
   3.63755287014529*^9}, {3.6375971855390453`*^9, 3.6375971858010607`*^9}, {
   3.6375978520491676`*^9, 3.6375978532902384`*^9}, 3.638565856905817*^9, {
   3.6394416058044043`*^9, 3.639441606531446*^9}, {3.6394539571998367`*^9, 
   3.6394539600139976`*^9}, {3.6394540695152607`*^9, 
   3.6394540697422733`*^9}, {3.639592311413557*^9, 3.639592316452366*^9}, {
   3.642611102222767*^9, 3.6426111024597807`*^9}, 3.698957600505358*^9, {
   3.699124169047628*^9, 3.6991241693086433`*^9}, 3.699331208362878*^9, {
   3.6993806736209917`*^9, 3.699380674572593*^9}, {3.700427569936813*^9, 
   3.700427570701214*^9}, 3.710438123040945*^9, 3.7104382645320377`*^9, {
   3.710438605303529*^9, 3.7104386105238276`*^9}, {3.7417199727651763`*^9, 
   3.741719973133198*^9}, {3.7418209211015577`*^9, 3.7418209236187015`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.518646163266424*^9, 3.518646178492051*^9}, 3.518646644012469*^9, {
   3.5186466815305347`*^9, 3.5186467324970245`*^9}, {3.5255875999924393`*^9, 
   3.525587604844048*^9}, {3.5260656055333147`*^9, 3.526065605823315*^9}, {
   3.5356001190500393`*^9, 3.53560011941004*^9}, {3.5356395364699063`*^9, 
   3.535639540806714*^9}, {3.637297657489136*^9, 3.637297659432247*^9}, {
   3.637542058633907*^9, 3.637542059663966*^9}, {3.710438547784239*^9, 
   3.710438549928361*^9}}],

Cell[TextData[{
 "Rule 1.1.2.x.2: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["P", "q"], "[", 
    RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496539487018721*^9, 3.4965395223187704`*^9}, {3.4966001213614845`*^9, 
   3.4966001362815056`*^9}, {3.4966047635399923`*^9, 
   3.4966048329500895`*^9}, {3.496604896730179*^9, 3.496605019710351*^9}, {
   3.496605050490394*^9, 3.4966050527103972`*^9}, {3.4966066606926484`*^9, 
   3.496606694832696*^9}, 3.496606873362946*^9, {3.4966081836347804`*^9, 
   3.496608250534874*^9}, {3.496608418375109*^9, 3.496608441025141*^9}, {
   3.4966322809467688`*^9, 3.4966322818867702`*^9}, {3.4968592460220995`*^9, 
   3.4968592640557313`*^9}, {3.4968593076422076`*^9, 
   3.4968593113862143`*^9}, {3.496859384233942*^9, 3.496859384233942*^9}, {
   3.518223900967896*^9, 3.518223909467908*^9}, 3.5182817155426493`*^9, {
   3.518285874431555*^9, 3.518285899625599*^9}, {3.5182860969191456`*^9, 
   3.518286138321618*^9}, {3.518286898517355*^9, 3.518286898517355*^9}, {
   3.5182870794776726`*^9, 3.5182870794776726`*^9}, {3.518469530324359*^9, 
   3.5184695402943726`*^9}, {3.5184751824166822`*^9, 
   3.5184752026967173`*^9}, {3.5184768778636603`*^9, 3.518476918735732*^9}, {
   3.51864635421076*^9, 3.5186463558487625`*^9}, {3.5211382176687317`*^9, 
   3.5211382205087357`*^9}, {3.5214987812400455`*^9, 
   3.5214987812400455`*^9}, {3.521998888253119*^9, 3.521998888253119*^9}, {
   3.5233014976566973`*^9, 3.5233014976566973`*^9}, {3.5247091445817738`*^9, 
   3.5247091445817738`*^9}, {3.524709699932746*^9, 3.524709699932746*^9}, {
   3.5247654133823185`*^9, 3.5247654133823185`*^9}, {3.525624999252597*^9, 
   3.525624999252597*^9}, {3.5277424355843287`*^9, 3.5277424355843287`*^9}, {
   3.535600843671054*^9, 3.535600843671054*^9}, {3.5356020906827993`*^9, 
   3.5356020970728083`*^9}, {3.5356026443635745`*^9, 
   3.5356026443635745`*^9}, {3.5356398819481134`*^9, 3.535639882712515*^9}, 
   3.5356575900831757`*^9, {3.53740754169744*^9, 3.5374075668974752`*^9}, {
   3.5758366663923025`*^9, 3.5758366752923145`*^9}, {3.5764713671035523`*^9, 
   3.5764713671035523`*^9}, {3.6370964798420935`*^9, 
   3.6370964798420935`*^9}, {3.637096511289892*^9, 3.6370965112908916`*^9}, {
   3.6372630681643624`*^9, 3.6372630681653624`*^9}, {3.6372632878209257`*^9, 
   3.637263361815158*^9}, {3.6372962970183215`*^9, 3.6372963088830004`*^9}, {
   3.637296570410959*^9, 3.637296570410959*^9}, {3.637296813055837*^9, 
   3.637296813055837*^9}, {3.6372976772462664`*^9, 3.6372976772462664`*^9}, {
   3.6372977113562174`*^9, 3.6372977930278883`*^9}, {3.637298005585046*^9, 
   3.637298009818288*^9}, {3.63729816650025*^9, 3.63729816650025*^9}, {
   3.6372998621272345`*^9, 3.6372998621282344`*^9}, {3.6372999510593204`*^9, 
   3.6372999510593204`*^9}, {3.637347577996273*^9, 3.637347586179741*^9}, {
   3.637353919995014*^9, 3.6373539199960146`*^9}, {3.6373540226788874`*^9, 
   3.6373540226788874`*^9}, {3.6375420514524965`*^9, 
   3.6375420514524965`*^9}, {3.639592331944194*^9, 3.639592331944194*^9}, {
   3.699124189765813*^9, 3.699124194982112*^9}, 3.6993313208078756`*^9, 
   3.699380649061548*^9, {3.700427595179058*^9, 3.700427595475458*^9}, {
   3.710438643316703*^9, 3.710438643317703*^9}, 3.710438996272891*^9, {
   3.741719988972103*^9, 3.7417199892841215`*^9}, {3.7418209377005067`*^9, 
   3.7418209377005067`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{"x", " ", 
       RowBox[{"PolynomialQuotient", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["P", "q"], "[", "x", "]"}], ",", "x", ",", "x"}], 
        "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, 3.4958399855843487`*^9, 3.495840155344586*^9, 
   3.495840624735243*^9, {3.4958474296047697`*^9, 3.495847433754776*^9}, {
   3.4958476539050837`*^9, 3.495847660315093*^9}, {3.4958482220958796`*^9, 
   3.4958482231858807`*^9}, {3.495848257515929*^9, 3.4958482607459335`*^9}, 
   3.4959261390123196`*^9, 3.4959262745925093`*^9, 3.4959264909328117`*^9, 
   3.4959265843129425`*^9, 3.495926967463479*^9, {3.496184978535224*^9, 
   3.496185020185282*^9}, {3.4961873840085917`*^9, 3.496187409278627*^9}, {
   3.4961890232008867`*^9, 3.4961890250708895`*^9}, 3.4961956176127515`*^9, {
   3.4961956815728407`*^9, 3.496195696542862*^9}, {3.4961957791729774`*^9, 
   3.4961957920929956`*^9}, 3.496195845773071*^9, 3.518405474905692*^9, {
   3.51840566597596*^9, 3.5184056974360037`*^9}, {3.518405737026059*^9, 
   3.5184057718861084`*^9}, {3.5184058668262415`*^9, 3.518405869606245*^9}, {
   3.518474939165455*^9, 3.518474949695473*^9}, {3.518474980162327*^9, 
   3.5184749818939295`*^9}, {3.5186461872280664`*^9, 
   3.5186462239349313`*^9}, {3.5186462556341867`*^9, 
   3.5186463116226854`*^9}, {3.5186468118699636`*^9, 
   3.5186468129619656`*^9}, {3.5186468443804207`*^9, 
   3.5186468801668835`*^9}, {3.5188834282085204`*^9, 3.5188834428185406`*^9}, 
   3.5188905291484613`*^9, {3.5188908372288933`*^9, 3.518890840348897*^9}, {
   3.521498794827669*^9, 3.5214987966372724`*^9}, {3.521500837242457*^9, 
   3.5215008547456875`*^9}, {3.524709145330575*^9, 3.524709147155778*^9}, 
   3.5247095625161057`*^9, 3.5247096025253754`*^9, {3.5247097005411468`*^9, 
   3.524709701165148*^9}, 3.5256249626225452`*^9, {3.5256250169126215`*^9, 
   3.525625046652663*^9}, {3.5277877398363514`*^9, 3.527787747546362*^9}, {
   3.535600034589921*^9, 3.5356000558999505`*^9}, 3.5356021247128468`*^9, {
   3.535602618323538*^9, 3.535602636973564*^9}, 3.535639688741774*^9, {
   3.5374010955384154`*^9, 3.537401126038458*^9}, {3.5374011816885357`*^9, 
   3.5374012356886115`*^9}, {3.5374043272629395`*^9, 
   3.5374043424729614`*^9}, {3.537404412143059*^9, 3.537404447203108*^9}, 
   3.5374049441438036`*^9, {3.5374049778538504`*^9, 3.537405014353902*^9}, {
   3.537405361844388*^9, 3.537405422514473*^9}, 3.537405466594535*^9, {
   3.5374054977145786`*^9, 3.5374055014245834`*^9}, {3.537406590916109*^9, 
   3.537406623666155*^9}, {3.5374066630462103`*^9, 3.5374066653962135`*^9}, 
   3.575837108412921*^9, {3.575837138742964*^9, 3.57583714352297*^9}, 
   3.5758372914931774`*^9, 3.5758374681734247`*^9, 3.5764713981035957`*^9, 
   3.6370964859824443`*^9, {3.6370965919395046`*^9, 3.6370965979598494`*^9}, {
   3.6372640113643103`*^9, 3.637264037294793*^9}, {3.6372664813965883`*^9, 
   3.6372664816066*^9}, 3.637296277794222*^9, {3.637296352835514*^9, 
   3.637296356396718*^9}, {3.63729687848658*^9, 3.6372969090653286`*^9}, {
   3.6372970281571407`*^9, 3.6372970400628214`*^9}, 3.6372976915100822`*^9, {
   3.6372978574035707`*^9, 3.6372978791118126`*^9}, {3.637297915119872*^9, 
   3.637297923118329*^9}, {3.63729802873137*^9, 3.6372980323555775`*^9}, {
   3.637347616134454*^9, 3.637347620070679*^9}, {3.63735159829222*^9, 
   3.637351610065894*^9}, {3.6373539495437045`*^9, 3.637353957494159*^9}, {
   3.63735433148455*^9, 3.637354354315856*^9}, 3.6375424130151763`*^9, {
   3.6375424449690037`*^9, 3.637542448721219*^9}, {3.6375424917266784`*^9, 
   3.6375425949405823`*^9}, {3.6375427677574663`*^9, 
   3.6375427709886513`*^9}, {3.637542816652263*^9, 3.637542847038001*^9}, {
   3.6375430314785504`*^9, 3.637543037601901*^9}, {3.6385658575718555`*^9, 
   3.638565858091885*^9}, {3.6394538093053775`*^9, 3.639453821851095*^9}, {
   3.639453992672866*^9, 3.639454004797559*^9}, {3.6395923622746468`*^9, 
   3.6395923751914697`*^9}, {3.6989576006993694`*^9, 
   3.6989576213525505`*^9}, {3.6993312083940783`*^9, 
   3.6993312083940783`*^9}, {3.699380680297803*^9, 3.699380689174219*^9}, {
   3.710438123568975*^9, 3.7104381240650034`*^9}, {3.710438264545038*^9, 
   3.7104382645480385`*^9}, {3.7104386539173093`*^9, 3.71043866179276*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.518475243178789*^9, 3.518475247765197*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Pq_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"x", "*", 
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"Pq", ",", "x", ",", "x"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Pq", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"Coeff", "[", 
       RowBox[{"Pq", ",", "x", ",", "0"}], "]"}], ",", "0"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"Not", "[", 
     RowBox[{"MatchQ", "[", 
      RowBox[{"Pq", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m_."}], "*", "u_."}], " ", "/;", " ", 
        RowBox[{"IntegerQ", "[", "m", "]"}]}]}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495839738475589*^9, 3.4958405008250694`*^9, {3.495847490784856*^9, 
   3.4958474999948683`*^9}, {3.4958477172451725`*^9, 3.495847721615179*^9}, {
   3.495848224085882*^9, 3.4958482277058873`*^9}, {3.4958482626259365`*^9, 
   3.4958482686359444`*^9}, 3.4959261054722724`*^9, {3.4959262905725317`*^9, 
   3.4959262958725395`*^9}, 3.495926443222745*^9, 3.4961849395451694`*^9, 
   3.496185884976493*^9, 3.4961888731806765`*^9, {3.4961890260508904`*^9, 
   3.4961890290708947`*^9}, {3.496191957967628*^9, 3.4961919600576305`*^9}, 
   3.49619205250776*^9, 3.4961952203321953`*^9, {3.496195426482484*^9, 
   3.496195433172493*^9}, {3.496195586822708*^9, 3.496195595732721*^9}, 
   3.496195754542943*^9, 3.4966189754082823`*^9, {3.4966198797795486`*^9, 
   3.496619907439587*^9}, {3.4968579645422487`*^9, 3.4968579680210547`*^9}, 
   3.5171911044266214`*^9, 3.518211198418105*^9, 3.5182420941409807`*^9, {
   3.518281849687285*^9, 3.518281849874485*^9}, {3.5182861978669233`*^9, 
   3.518286207226939*^9}, 3.518286893072945*^9, 3.518287077449669*^9, {
   3.518405919376315*^9, 3.5184059327163334`*^9}, 3.518406000866429*^9, {
   3.5184061023365707`*^9, 3.518406115016588*^9}, {3.5184065135071464`*^9, 
   3.518406515547149*^9}, {3.518406800569559*^9, 3.5184068071395683`*^9}, {
   3.518455696848171*^9, 3.518455715349804*^9}, {3.5184695492443857`*^9, 
   3.5184695498143864`*^9}, {3.5184750261356077`*^9, 
   3.5184750485372467`*^9}, {3.5184750988941355`*^9, 3.518475163072648*^9}, 
   3.5184752811336555`*^9, {3.518475372144215*^9, 3.518475372315816*^9}, 
   3.518476122541534*^9, 3.5184761841304417`*^9, {3.5184762225533094`*^9, 
   3.51847622274051*^9}, {3.5184764457117014`*^9, 3.518476449268508*^9}, {
   3.5186463404515357`*^9, 3.5186463437119417`*^9}, {3.5186463743971953`*^9, 
   3.5186464507437296`*^9}, {3.5186469255005636`*^9, 3.518646996402688*^9}, {
   3.5188834532285557`*^9, 3.518883467828576*^9}, {3.518890540078477*^9, 
   3.5188905826085367`*^9}, {3.518890830198883*^9, 3.5188908328088865`*^9}, {
   3.518891390959668*^9, 3.518891394309673*^9}, 3.5202847651693087`*^9, {
   3.520285003400935*^9, 3.5202850059700823`*^9}, {3.5208997381370683`*^9, 
   3.520899740707072*^9}, {3.521660257927198*^9, 3.521660259867201*^9}, 
   3.5219988599330792`*^9, 3.522442292804413*^9, {3.5233015037279077`*^9, 
   3.523301508327915*^9}, 3.523322644531102*^9, {3.524709150618984*^9, 
   3.5247091535829897`*^9}, {3.5247093503585353`*^9, 
   3.5247093737573757`*^9}, {3.524709408679037*^9, 3.5247094106290407`*^9}, {
   3.524712568613783*^9, 3.524712573028591*^9}, {3.524761860287345*^9, 
   3.524761863717349*^9}, {3.5247654793724113`*^9, 3.524765481852415*^9}, {
   3.5256250193826246`*^9, 3.5256250500926676`*^9}, 3.5256255683533936`*^9, {
   3.5277424141030912`*^9, 3.5277424172542963`*^9}, {3.5277877535163703`*^9, 
   3.527787765556387*^9}, 3.529381208336618*^9, {3.5356001300400543`*^9, 
   3.535600196300147*^9}, 3.5356002344202003`*^9, 3.535600268880249*^9, {
   3.535602284793071*^9, 3.5356023143431125`*^9}, {3.5356023837532096`*^9, 
   3.5356023923232217`*^9}, {3.5356397141542187`*^9, 
   3.5356397169622235`*^9}, {3.5356397864447455`*^9, 3.5356398018419724`*^9}, 
   3.5356400146731462`*^9, {3.53565756401553*^9, 3.5356575648267317`*^9}, 
   3.53565764377847*^9, {3.537401151318494*^9, 3.5374011700485196`*^9}, {
   3.53740127729867*^9, 3.5374013490787706`*^9}, {3.5374014341088896`*^9, 
   3.53740145567892*^9}, 3.537401846519467*^9, {3.537402075299787*^9, 
   3.53740211313984*^9}, {3.537402143759883*^9, 3.5374021466998873`*^9}, {
   3.5374022340400095`*^9, 3.5374022427300215`*^9}, {3.5374022754000673`*^9, 
   3.537402343240162*^9}, {3.53740237781021*^9, 3.5374023986102395`*^9}, {
   3.537402438800296*^9, 3.5374024443003035`*^9}, {3.5374024822903566`*^9, 
   3.5374025073503923`*^9}, {3.537402537830435*^9, 3.537402602520525*^9}, {
   3.5374026415705795`*^9, 3.5374026419505806`*^9}, {3.5374028378008547`*^9, 
   3.5374028427908616`*^9}, {3.5374028826709175`*^9, 3.53740289916094*^9}, {
   3.5374031666713147`*^9, 3.537403237441414*^9}, {3.5374032698214593`*^9, 
   3.5374032729314637`*^9}, {3.537403411771658*^9, 3.537403463761731*^9}, {
   3.537403508831794*^9, 3.5374035633618703`*^9}, {3.537403669252019*^9, 
   3.5374036798420334`*^9}, 3.537403913792361*^9, {3.5374066950662546`*^9, 
   3.537406858726484*^9}, 3.5374069576466227`*^9, {3.5374069980766788`*^9, 
   3.537407001206683*^9}, {3.5374100229109135`*^9, 3.53741004883095*^9}, {
   3.5374101193510485`*^9, 3.5374101285010614`*^9}, 3.5374102374312143`*^9, 
   3.5374192023124743`*^9, {3.5374851442806253`*^9, 3.5374851830906796`*^9}, {
   3.5437903952523317`*^9, 3.5437903959423323`*^9}, {3.5717974273984604`*^9, 
   3.5717974319784665`*^9}, {3.5718614076984653`*^9, 
   3.5718614125584726`*^9}, {3.5718616823028526`*^9, 
   3.5718616999928775`*^9}, {3.637096628845616*^9, 3.637096637594116*^9}, {
   3.6372541638570833`*^9, 3.6372541646838846`*^9}, {3.6372640843284836`*^9, 
   3.637264135367403*^9}, {3.6372641746356487`*^9, 3.6372642251315374`*^9}, {
   3.6372642804747024`*^9, 3.637264280727717*^9}, {3.6372643280494237`*^9, 
   3.637264418289585*^9}, {3.6372664916101723`*^9, 3.637266491806184*^9}, 
   3.637269456865775*^9, 3.6372695770806513`*^9, {3.6372701547766933`*^9, 
   3.637270184528395*^9}, {3.63729715140819*^9, 3.637297163974909*^9}, {
   3.637297228813617*^9, 3.637297299823679*^9}, {3.6372973408980284`*^9, 
   3.637297354824825*^9}, {3.63729739547915*^9, 3.6372974282520247`*^9}, {
   3.637297489238513*^9, 3.637297517038103*^9}, {3.637298037278859*^9, 
   3.637298171673546*^9}, {3.6372992558345566`*^9, 3.6372992560265675`*^9}, {
   3.637299969262362*^9, 3.637300002082239*^9}, 3.6373476484393015`*^9, {
   3.6373476937338924`*^9, 3.637347698713177*^9}, {3.6373477594686527`*^9, 
   3.6373478206271505`*^9}, {3.637351616010234*^9, 3.637351630002034*^9}, {
   3.6373539791924*^9, 3.637353992034135*^9}, {3.637354027375156*^9, 
   3.6373540401698875`*^9}, {3.6373540718416996`*^9, 3.637354103622517*^9}, 
   3.6373543200728974`*^9, {3.6373543755160685`*^9, 3.637354422428752*^9}, {
   3.6375426925751667`*^9, 3.637542716434531*^9}, {3.637543174079707*^9, 
   3.6375431969080124`*^9}, 3.638679753582667*^9, {3.6394413590952935`*^9, 
   3.639441362128467*^9}, {3.639441609521617*^9, 3.6394416197562027`*^9}, {
   3.6394537904793005`*^9, 3.6394537950825644`*^9}, {3.6395923809186797`*^9, 
   3.639592420466749*^9}, 3.639593973434546*^9, {3.6425493542999983`*^9, 
   3.6425493551950493`*^9}, 3.642701754590316*^9, 3.64270211387062*^9, {
   3.698957746292697*^9, 3.6989577860099683`*^9}, {3.6989578640214305`*^9, 
   3.69895791734348*^9}, 3.6989580365142965`*^9, 3.6993312300469165`*^9, 
   3.6993312832274094`*^9, {3.6993807431047554`*^9, 3.6993807647062016`*^9}, {
   3.700416325175374*^9, 3.7004163397467995`*^9}, 3.7007630756884317`*^9, 
   3.701451756421618*^9, 3.706136660589346*^9, 3.710437850184338*^9, {
   3.710438308505553*^9, 3.710438343550557*^9}, 3.710438906611762*^9, 
   3.7104389372255135`*^9, 3.710464861475895*^9, 3.7109691947474566`*^9, {
   3.7418209454199486`*^9, 3.741820951020269*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"PolynomialRemainder", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["P", "q"], "[", "x", "]"}], ",", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}], "\[Equal]", 
      "0"}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, {
   3.523933074292511*^9, 3.523933086226532*^9}, {3.5239331696710787`*^9, 
   3.523933181121499*^9}, 3.5239335006568604`*^9, {3.5239355418736453`*^9, 
   3.5239355418736453`*^9}, {3.5268693631599226`*^9, 
   3.5268693782607493`*^9}, {3.526876698258407*^9, 3.5268767437792873`*^9}, {
   3.526877146135194*^9, 3.5268771603156185`*^9}, {3.5269176575336895`*^9, 
   3.526917673757718*^9}, 3.526917875278872*^9, {3.5269238483809633`*^9, 
   3.5269238905010376`*^9}, {3.526924565420223*^9, 3.526924565420223*^9}, {
   3.5305584520300393`*^9, 3.530558453792842*^9}, 3.534642640217794*^9, {
   3.5346427618058662`*^9, 3.534642770032271*^9}, {3.5346429890251036`*^9, 
   3.5346430159696445`*^9}, {3.5346430990603423`*^9, 
   3.5346431040603495`*^9}, {3.534706430158797*^9, 3.5347064517804346`*^9}, {
   3.5347066724272223`*^9, 3.5347066749388266`*^9}, {3.534708039052023*^9, 
   3.534708042047228*^9}, {3.5347082570624056`*^9, 3.534708257296406*^9}, {
   3.5393937231100464`*^9, 3.5393937232640553`*^9}, {3.5497619160626*^9, 
   3.5497619527446985`*^9}, {3.5498517888490753`*^9, 3.549851789079075*^9}, {
   3.5498518292591314`*^9, 3.549851833339137*^9}, 3.549861675894272*^9, {
   3.5498617962671576`*^9, 3.5498618031115484`*^9}, 3.5499241208491735`*^9, {
   3.5499242935570297`*^9, 3.5499242950094323`*^9}, 3.5717051477598267`*^9, 
   3.575822921566903*^9, {3.6113494016079865`*^9, 3.6113494018079863`*^9}, {
   3.611349520488191*^9, 3.6113495207731915`*^9}, {3.61135662216823*^9, 
   3.611356650328269*^9}, {3.611356914378639*^9, 3.611356917328643*^9}, {
   3.611357172009*^9, 3.611357172009*^9}, {3.61151114624172*^9, 
   3.6115111473142214`*^9}, {3.620233067837036*^9, 3.620233086697469*^9}, {
   3.6202333928740077`*^9, 3.6202334642753325`*^9}, 3.6202339138681226`*^9, {
   3.624745639354846*^9, 3.6247456402468967`*^9}, {3.637522303714407*^9, 
   3.6375223060594115`*^9}, 3.6390669973751264`*^9, {3.6444425214011884`*^9, 
   3.6444425218222127`*^9}, 3.6444425997666707`*^9, 3.6906631382090836`*^9, 
   3.6906631976551685`*^9, {3.6906632334152193`*^9, 3.69066323360522*^9}, {
   3.7327330816756277`*^9, 3.7327330924772453`*^9}, {3.732734032900035*^9, 
   3.7327340368592615`*^9}, {3.732737748579485*^9, 3.732737748810498*^9}, 
   3.7327413339045534`*^9, {3.732755282316357*^9, 3.732755304199609*^9}, 
   3.732761341364915*^9, {3.7328047151608896`*^9, 3.7328047306397753`*^9}, 
   3.7328048139725413`*^9, 3.732820601279523*^9, 3.732825082389427*^9, 
   3.7336913958368254`*^9, {3.7336915068141727`*^9, 3.7336915070791883`*^9}, {
   3.7336919376228137`*^9, 3.7336919376228137`*^9}, {3.7336920690683317`*^9, 
   3.7336920708644347`*^9}, {3.733772230195429*^9, 3.7337722359187565`*^9}, {
   3.7337729277463264`*^9, 3.733772928001342*^9}, {3.7337731336031013`*^9, 
   3.733773133865116*^9}, {3.7337787987571297`*^9, 3.73377879911915*^9}, {
   3.7337788652749343`*^9, 3.7337788654659452`*^9}, {3.733779023357976*^9, 
   3.7337790235369864`*^9}, 3.733787875799306*^9, 3.7337886089772415`*^9, {
   3.7337887538955307`*^9, 3.733788808070629*^9}, {3.733789003186789*^9, 
   3.7337890034758053`*^9}, {3.733795423060227*^9, 3.733795423232237*^9}, {
   3.7337955432561016`*^9, 3.733795543529117*^9}, {3.733796959948132*^9, 
   3.7337969601501436`*^9}, {3.7338554802494907`*^9, 3.733855480506505*^9}, {
   3.7344892411449175`*^9, 3.7344892417549524`*^9}, {3.7346379837008224`*^9, 
   3.734637984042842*^9}, {3.734645464274687*^9, 3.7346454644736977`*^9}, {
   3.7346469621873627`*^9, 3.7346469775882435`*^9}, 3.7394030629657784`*^9, {
   3.7419843025569124`*^9, 3.7419843156876636`*^9}, {3.741984980444686*^9, 
   3.741984980684699*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.52393166160083*^9, {3.620234434581437*^9, 3.6202344396046457`*^9}, {
   3.690664333768237*^9, 3.690664341188247*^9}, {3.6908496587223363`*^9, 
   3.6908496620505266`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"PolynomialRemainder", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", "q"], "[", "x", "]"}], ",", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4954223457721186`*^9, 
   3.4954223698921523`*^9}, {3.495422809672768*^9, 3.4954228678728495`*^9}, {
   3.495422999683034*^9, 3.4954230032130384`*^9}, {3.4954233713935547`*^9, 
   3.495423398813593*^9}, {3.4954234509036655`*^9, 3.4954234541136703`*^9}, {
   3.4954236049638815`*^9, 3.4954236208939037`*^9}, {3.4954236729139767`*^9, 
   3.4954236833239913`*^9}, {3.4955919592566047`*^9, 
   3.4955919596310053`*^9}, {3.5239355316244273`*^9, 
   3.5239355316244273`*^9}, {3.5268695545566587`*^9, 
   3.5268695582538657`*^9}, {3.526877275568621*^9, 3.5268773333199224`*^9}, {
   3.5269176967365584`*^9, 3.5269176967365584`*^9}, {3.526924612610306*^9, 
   3.526924612610306*^9}, {3.5269270224625387`*^9, 3.5269270224625387`*^9}, {
   3.5305583575562735`*^9, 3.530558360660679*^9}, {3.5347074228665404`*^9, 
   3.5347074228665404`*^9}, {3.549823103506521*^9, 3.549823103506521*^9}, {
   3.611356258837721*^9, 3.611356258837721*^9}, {3.63917293207978*^9, 
   3.63917293208078*^9}, 3.6501606099462337`*^9, 3.650160886705063*^9, {
   3.6906636169318275`*^9, 3.6906636171718283`*^9}, 3.698684025703457*^9, {
   3.7324999650142055`*^9, 3.73249996526722*^9}, {3.7327340558413467`*^9, 
   3.7327340651808815`*^9}, 3.732761863528781*^9, {3.7328047734472237`*^9, 
   3.7328047804406233`*^9}, {3.732805884164753*^9, 3.732805884164753*^9}, {
   3.7328061813577514`*^9, 3.7328061813577514`*^9}, {3.7336910308549495`*^9, 
   3.7336910308549495`*^9}, {3.733691478126532*^9, 3.733691478126532*^9}, {
   3.733771831332616*^9, 3.733771831332616*^9}, {3.7337888420815744`*^9, 
   3.7337888420815744`*^9}, {3.73379502186328*^9, 3.73379502186328*^9}, {
   3.7344892450981436`*^9, 3.7344892450981436`*^9}, {3.7419843259832525`*^9, 
   3.7419843259832525`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"PolynomialQuotient", "[", 
        RowBox[{
         RowBox[{
          SubscriptBox["P", "q"], "[", "x", "]"}], ",", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "2"]}]}], ")"}], 
        RowBox[{"p", "+", "1"}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495422441222252*^9, 3.4954224733722973`*^9, 
   3.49542261091249*^9, {3.4954226829125905`*^9, 3.4954226975926113`*^9}, {
   3.495423050323105*^9, 3.4954231021331778`*^9}, 3.4954233506135254`*^9, 
   3.495423494923727*^9, 3.4954235863638554`*^9, 3.4954237215540447`*^9, {
   3.4955917301078024`*^9, 3.495591759061453*^9}, {3.5268693941259775`*^9, 
   3.5268694010835896`*^9}, 3.526916903567412*^9, {3.5269170340875945`*^9, 
   3.526917062747635*^9}, {3.5269171093677*^9, 3.526917128097726*^9}, {
   3.526917461098192*^9, 3.5269174768182144`*^9}, {3.5269178784300776`*^9, 
   3.5269179471169987`*^9}, {3.5269246553387814`*^9, 
   3.5269247386273274`*^9}, {3.5305579040634766`*^9, 3.530557922315509*^9}, {
   3.5346428097875443`*^9, 3.534642846565648*^9}, 3.534643065883975*^9, 
   3.5346431768148212`*^9, {3.5347064789712825`*^9, 3.5347065323233757`*^9}, {
   3.534708153634224*^9, 3.5347081639146423`*^9}, {3.5497629011259427`*^9, 
   3.5497629233702154`*^9}, {3.5498616853938155`*^9, 3.549861721713893*^9}, 
   3.611357133818946*^9, {3.620233165820808*^9, 3.620233188472048*^9}, {
   3.620233238230936*^9, 3.6202333387107124`*^9}, 3.6375239409018044`*^9, {
   3.63752401787834*^9, 3.637524038427576*^9}, 3.6375241001492853`*^9, {
   3.690664422109374*^9, 3.690664434984393*^9}, 3.690664511648303*^9, {
   3.690664767891613*^9, 3.6906648342781105`*^9}, 3.6906862370138397`*^9, 
   3.690686270846775*^9, 3.6906865143317013`*^9, {3.690686592792189*^9, 
   3.690686597382452*^9}, {3.7327331215549088`*^9, 3.7327331395009356`*^9}, {
   3.7327331887557526`*^9, 3.732733214749239*^9}, {3.732733257841704*^9, 
   3.7327333953595695`*^9}, {3.7327358667158484`*^9, 3.732735873353228*^9}, 
   3.732736055864667*^9, {3.7327583726301126`*^9, 3.7327583965754824`*^9}, 
   3.732761347061241*^9, {3.7327617347854176`*^9, 3.7327618399894347`*^9}, {
   3.7327620636142254`*^9, 3.7327620740678234`*^9}, {3.733691729555913*^9, 
   3.733691751233153*^9}, 3.7337722765860825`*^9, {3.7337724595295467`*^9, 
   3.733772482196843*^9}, {3.7337725279764614`*^9, 3.733772540299166*^9}, 
   3.733787888492032*^9, {3.733788340041859*^9, 3.7337883798261347`*^9}, {
   3.7337885104426055`*^9, 3.733788539331258*^9}, {3.7337886387709455`*^9, 
   3.73378864968557*^9}, {3.733788872334305*^9, 3.733788873387365*^9}, 
   3.733795032931913*^9, {3.7337954297676105`*^9, 3.7337954348869033`*^9}, {
   3.7344892457051783`*^9, 3.73448924643322*^9}, {3.7346380055550723`*^9, 
   3.734638009304287*^9}, 3.7419843878527913`*^9, {3.7419844951249266`*^9, 
   3.7419845093157387`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5269182420823164`*^9, 3.5269182473239255`*^9}, {
   3.733772560915345*^9, 3.7337725646425586`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Px_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"Px", ",", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "2"}]}]}], ",", "x"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Px", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"PolynomialRemainder", "[", 
       RowBox[{"Px", ",", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "2"}]}]}], ",", "x"}], "]"}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4954222457419786`*^9, 3.49542257518244*^9, {
   3.4954226384825287`*^9, 3.495422640262531*^9}, {3.495422979083005*^9, 
   3.495422986193015*^9}, {3.4954232118433313`*^9, 3.4954232206733437`*^9}, {
   3.4954234342736425`*^9, 3.495423439223649*^9}, {3.4954235290337753`*^9, 
   3.495423538163788*^9}, {3.4954236436039357`*^9, 3.4954236484739428`*^9}, {
   3.495591711278569*^9, 3.4955917121833706`*^9}, {3.4955917741778793`*^9, 
   3.4955918058771353`*^9}, {3.4955918501188126`*^9, 3.4955918540032196`*^9}, 
   3.5239355527624645`*^9, {3.5268694242028303`*^9, 3.52686942994364*^9}, {
   3.526869510876582*^9, 3.5268695702814865`*^9}, {3.526917395788101*^9, 
   3.5269174003281074`*^9}, 3.5269176224804277`*^9, {3.526917704130972*^9, 
   3.5269177333186226`*^9}, 3.5269182671359606`*^9, 3.5269185743061*^9, {
   3.5269223222770834`*^9, 3.526922336395108*^9}, 3.526924992377373*^9, {
   3.5269250542470818`*^9, 3.5269250628738966`*^9}, 3.526925331163168*^9, {
   3.5305580438865223`*^9, 3.530558049206132*^9}, {3.5346428823552604`*^9, 
   3.534642883418321*^9}, {3.534642915328889*^9, 3.5346429770874205`*^9}, {
   3.5346430349337296`*^9, 3.534643069272169*^9}, {3.534706561869828*^9, 
   3.5347065627434297`*^9}, {3.5347065963926888`*^9, 3.534706652069186*^9}, {
   3.534708187158683*^9, 3.5347082005279064`*^9}, {3.5422497179341545`*^9, 
   3.542249729168797*^9}, {3.5497629393551292`*^9, 3.5497629835886593`*^9}, {
   3.549851858039172*^9, 3.5498518680891857`*^9}, {3.5498618249998007`*^9, 
   3.5498618692023287`*^9}, 3.5499088165801616`*^9, 3.5499243027778444`*^9, {
   3.6113571393689537`*^9, 3.6113571439789605`*^9}, 3.6113571955290327`*^9, 
   3.611357234189087*^9, {3.620233638449639*^9, 3.620233652786064*^9}, {
   3.6202337399590173`*^9, 3.6202338180527544`*^9}, {3.6202340275611224`*^9, 
   3.620234033723133*^9}, 3.620234190987009*^9, {3.6375238754486885`*^9, 
   3.63752389858753*^9}, 3.6444425309977374`*^9, {3.6906621348624887`*^9, 
   3.6906621495825095`*^9}, {3.6906867607807975`*^9, 3.6906867777757697`*^9}, 
   3.690686824907466*^9, {3.732733463768482*^9, 3.732733550071419*^9}, {
   3.73273385500686*^9, 3.732733916393371*^9}, {3.7327339528134537`*^9, 
   3.7327339633430567`*^9}, 3.732734128646511*^9, {3.732758424799097*^9, 
   3.7327584335565977`*^9}, {3.732758591554635*^9, 3.7327586474988346`*^9}, 
   3.732761925663335*^9, 3.7327622141618357`*^9, {3.7327626028100653`*^9, 
   3.7327626089814186`*^9}, {3.7328048255792055`*^9, 3.7328048578110485`*^9}, 
   3.73369190398789*^9, 3.7336919897577953`*^9, {3.733772609217108*^9, 
   3.7337726123842893`*^9}, {3.7337727483060637`*^9, 3.733772760616768*^9}, {
   3.733772798123913*^9, 3.733772801085082*^9}, {3.7337745630868635`*^9, 
   3.733774569783246*^9}, 3.733788498645931*^9, {3.73379463163796*^9, 
   3.733794657544442*^9}, 3.7337947778503227`*^9, {3.733795119471863*^9, 
   3.733795128532381*^9}, {3.7337951585690985`*^9, 3.7337951600811853`*^9}, {
   3.7337952280160713`*^9, 3.733795234165423*^9}, {3.7337952997451735`*^9, 
   3.7337953044964457`*^9}, {3.733795442204322*^9, 3.733795461818444*^9}, 
   3.7344892988832197`*^9, {3.734489372256417*^9, 3.734489373611494*^9}, {
   3.734638017632763*^9, 3.7346380346617374`*^9}, {3.7419845770956154`*^9, 
   3.741984651349862*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"p", "<", 
      RowBox[{"-", "1"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.5193204983759685`*^9, {3.5193205298100233`*^9, 3.5193205621488805`*^9}, {
   3.519320656950247*^9, 3.519320656950247*^9}, 3.519320691036307*^9, 
   3.521052548157569*^9, 3.5210531569034386`*^9, {3.521059680604496*^9, 
   3.521059680604496*^9}, 3.5210597282157793`*^9, {3.521129791833007*^9, 
   3.5211298136886454`*^9}, {3.5214683364087706`*^9, 3.521468336814371*^9}, {
   3.523319820478959*^9, 3.52331982110896*^9}, 3.523815223506757*^9, {
   3.536542938141101*^9, 3.536542938141101*^9}, {3.5367766612355013`*^9, 
   3.5367766618655024`*^9}, {3.5443737315059643`*^9, 
   3.5443737338059673`*^9}, {3.5694352082038727`*^9, 3.569435215323882*^9}, {
   3.569435360854086*^9, 3.569435362934089*^9}, {3.570378420640383*^9, 
   3.570378423526388*^9}, {3.5703796180024853`*^9, 3.570379618189685*^9}, {
   3.5703820967318883`*^9, 3.570382112791911*^9}, {3.570731599333789*^9, 
   3.5707315995337896`*^9}, {3.570731733423977*^9, 3.5707317414739885`*^9}, {
   3.5715187313110466`*^9, 3.5715187314710464`*^9}, 3.5758361221915407`*^9, 
   3.6366530226985264`*^9, {3.636683289474372*^9, 3.6366832897239723`*^9}, {
   3.6462652495596876`*^9, 3.6462652497306976`*^9}, 3.6963644184452486`*^9, 
   3.6986159456515474`*^9, 3.698616195601844*^9, {3.698635707425089*^9, 
   3.6986357076871037`*^9}, {3.7064254495297127`*^9, 
   3.7064254498137293`*^9}, {3.7416361123945646`*^9, 
   3.7416361441046085`*^9}, {3.7417199744782743`*^9, 3.741719974605282*^9}, {
   3.741985010820423*^9, 3.741985011052436*^9}},
 FontFamily->"Courier New",
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", "q"], "[", 
      SuperscriptBox["x", "2"], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "+", 
         FractionBox["1", "2"]}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"2", " ", "q"}], "+", 
         RowBox[{"2", " ", "p"}], "+", "1"}], "<", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194145462306576`*^9}, {
   3.519793965762905*^9, 3.5197939659969053`*^9}, {3.519794035370227*^9, 
   3.5197940357134275`*^9}, 3.5197951567001967`*^9, {3.5200148228281317`*^9, 
   3.520014823138132*^9}, {3.5232186961069126`*^9, 3.523218698736916*^9}, {
   3.5232187737370214`*^9, 3.523218783487035*^9}, {3.523219745808382*^9, 
   3.5232198038184633`*^9}, {3.5233166533845415`*^9, 
   3.5233166533845415`*^9}, {3.523316704544613*^9, 3.523316704544613*^9}, {
   3.532495227080409*^9, 3.532495227080409*^9}, {3.532662036025874*^9, 
   3.532662042016285*^9}, {3.532662093621176*^9, 3.5326621130120096`*^9}, {
   3.5326622031177683`*^9, 3.5326622031177683`*^9}, {3.532662949547879*^9, 
   3.532662949547879*^9}, {3.5328845132893047`*^9, 3.5328845171593103`*^9}, {
   3.532884565679378*^9, 3.532884567679381*^9}, {3.5418094010499897`*^9, 
   3.541809405659996*^9}, {3.541809496910124*^9, 3.5418095002301283`*^9}, {
   3.544236946091737*^9, 3.544236946091737*^9}, {3.544237054160918*^9, 
   3.544237069595801*^9}, {3.544237125260985*^9, 3.544237129915251*^9}, {
   3.5442387984306846`*^9, 3.5442387984306846`*^9}, {3.544309789160915*^9, 
   3.544309789160915*^9}, {3.554080548494834*^9, 3.554080548494834*^9}, 
   3.554080609284919*^9, 3.575823577497821*^9, {3.6133471492339077`*^9, 
   3.6133471569239182`*^9}, 3.6133472628140664`*^9, {3.6133474013942604`*^9, 
   3.6133474013942604`*^9}, {3.613350296970821*^9, 3.613350362280912*^9}, {
   3.6133504273410034`*^9, 3.6133504275110035`*^9}, {3.6133562644811764`*^9, 
   3.6133562646511765`*^9}, {3.6133595044157124`*^9, 
   3.6133595046157126`*^9}, {3.613416469823567*^9, 3.613416470023567*^9}, {
   3.613416716986427*^9, 3.6134167172564273`*^9}, {3.613429807255195*^9, 
   3.6134298074951954`*^9}, {3.6137576530234847`*^9, 
   3.6137576530234847`*^9}, {3.613775198930053*^9, 3.6137751992290707`*^9}, {
   3.629996923827963*^9, 3.6299969240463634`*^9}, 3.6340584118619814`*^9, {
   3.6343192944279103`*^9, 3.6343192944279103`*^9}, {3.634320903794961*^9, 
   3.634320903794961*^9}, {3.6362410933067355`*^9, 3.6362411065174913`*^9}, {
   3.6362411395833826`*^9, 3.636241331908383*^9}, {3.636241612837451*^9, 
   3.6362416185337768`*^9}, {3.636241889786291*^9, 3.6362418946025667`*^9}, {
   3.63624193574192*^9, 3.636241967473735*^9}, {3.6362420229979105`*^9, 
   3.6362420277821846`*^9}, {3.636299446557777*^9, 3.6362994498219633`*^9}, {
   3.636310843145624*^9, 3.6363108461407957`*^9}, 3.6365624409318013`*^9, {
   3.6365641169576645`*^9, 3.63656411740069*^9}, 3.6367701857899075`*^9, 
   3.636825937688094*^9, {3.636842610008727*^9, 3.636842635253171*^9}, {
   3.6368427132706337`*^9, 3.636842729802579*^9}, {3.6368432052917757`*^9, 
   3.636843205607794*^9}, {3.6370893748947134`*^9, 3.6370893761147833`*^9}, {
   3.6370894581384745`*^9, 3.6370894587625103`*^9}, 3.637186106618013*^9, {
   3.6371861873169546`*^9, 3.6371862112473965`*^9}, {3.6371901568368483`*^9, 
   3.6371901568368483`*^9}, {3.637204072913598*^9, 3.6372040731475983`*^9}, {
   3.637254322579362*^9, 3.6372543227821617`*^9}, {3.637287158200326*^9, 
   3.637287158420326*^9}, {3.6372994552609625`*^9, 3.6372994620913534`*^9}, 
   3.6373466548674726`*^9, 3.637347073520418*^9, {3.6373479580850124`*^9, 
   3.6373479582960243`*^9}, {3.6373480123731174`*^9, 
   3.6373480388736334`*^9}, {3.637350225514702*^9, 3.637350225514702*^9}, {
   3.6373502673090925`*^9, 3.6373502673090925`*^9}, {3.637354939839346*^9, 
   3.637354939983354*^9}, 3.637360969497223*^9, {3.6373668713287883`*^9, 
   3.6373668715037985`*^9}, {3.6375377222798815`*^9, 3.637537722280882*^9}, {
   3.6375383730611043`*^9, 3.6375383730611043`*^9}, 3.6375433134906807`*^9, 
   3.637543578136818*^9, {3.637554937324526*^9, 3.637554938608599*^9}, {
   3.6375552356275883`*^9, 3.637555237618702*^9}, {3.6375554359360447`*^9, 
   3.637555435937045*^9}, {3.637601881035612*^9, 3.637601882132675*^9}, {
   3.637601914663536*^9, 3.6376019150445576`*^9}, {3.637603050031475*^9, 
   3.637603060038048*^9}, 3.6377793840657167`*^9, {3.637826212225559*^9, 
   3.6378262123655596`*^9}, {3.6380540606343565`*^9, 3.638054071575498*^9}, {
   3.6380542376777477`*^9, 3.638054240147751*^9}, 3.6380542887968225`*^9, {
   3.639706395117525*^9, 3.6397063970363283`*^9}, 3.63970653437897*^9, 
   3.6397065752978415`*^9, {3.639706628415935*^9, 3.6397066307559395`*^9}, {
   3.6397066794280243`*^9, 3.639706680270426*^9}, {3.639706924694855*^9, 
   3.6397069744433427`*^9}, {3.6397070177490187`*^9, 3.63970707540672*^9}, {
   3.639707704462225*^9, 3.6397077150546436`*^9}, {3.6397077479083014`*^9, 
   3.639707754179512*^9}, {3.639707810760812*^9, 3.639707811182012*^9}, {
   3.6397087183080053`*^9, 3.6397087184640055`*^9}, {3.639775373373966*^9, 
   3.6397753738179913`*^9}, {3.6397756457485447`*^9, 3.6397756613344364`*^9}, 
   3.6397757806632614`*^9, {3.639954937320079*^9, 3.639954952066922*^9}, {
   3.6399550010107217`*^9, 3.6399550546327887`*^9}, {3.63995510483366*^9, 
   3.6399551496852255`*^9}, {3.6399559371232643`*^9, 3.639955942307561*^9}, {
   3.63995755812298*^9, 3.639957560440113*^9}, {3.639958269957695*^9, 
   3.6399582800112696`*^9}, {3.639964624297142*^9, 3.639964665219483*^9}, {
   3.6399647013375483`*^9, 3.6399647235718203`*^9}, 3.63996671056947*^9, {
   3.6399684218833513`*^9, 3.6399684224223824`*^9}, {3.6399688475757*^9, 
   3.6399688482947407`*^9}, 3.6399698724713206`*^9, 3.6401172754795914`*^9, 
   3.640117463324335*^9, {3.6401230317521906`*^9, 3.6401230356833973`*^9}, {
   3.6401251919971848`*^9, 3.6401251919971848`*^9}, {3.6401341336032906`*^9, 
   3.640134148220516*^9}, {3.640224878036978*^9, 3.6402249187603073`*^9}, {
   3.6402257392913475`*^9, 3.6402257392913475`*^9}, {3.6402274830072856`*^9, 
   3.6402274830072856`*^9}, {3.640278306321289*^9, 3.640278306321289*^9}, 
   3.6403066640131044`*^9, 3.6403964922324286`*^9, {3.6403967434577975`*^9, 
   3.640396746857992*^9}, {3.6403968101046095`*^9, 3.6403968416434135`*^9}, {
   3.6403970964489875`*^9, 3.6403971126259127`*^9}, {3.640397145368786*^9, 
   3.640397148122943*^9}, {3.640397204481167*^9, 3.640397217912935*^9}, {
   3.6403973957451067`*^9, 3.640397409025866*^9}, {3.640968498781332*^9, 
   3.640968505418021*^9}, {3.6410058565520697`*^9, 3.6410058565520697`*^9}, {
   3.642353998244378*^9, 3.6423540107576*^9}, {3.642354588014962*^9, 
   3.642354593522772*^9}, 3.6423563920818853`*^9, {3.642361503226593*^9, 
   3.6423615361506453`*^9}, {3.6423617274962206`*^9, 3.6423617274962206`*^9}, 
   3.6423622342471027`*^9, 3.6423662570407763`*^9, {3.642366369434965*^9, 
   3.642366370804967*^9}, {3.642366433918065*^9, 3.6423664341280656`*^9}, {
   3.6423683944524593`*^9, 3.64236844035853*^9}, {3.642445020332036*^9, 
   3.6424450338760667`*^9}, {3.642445067697136*^9, 3.642445067697136*^9}, {
   3.6424451582603436`*^9, 3.642445158733345*^9}, 3.6424488948389244`*^9, {
   3.6424489513720703`*^9, 3.642448997772174*^9}, 3.698957622179598*^9, {
   3.6989593914727955`*^9, 3.698959391473796*^9}, {3.6989595065893803`*^9, 
   3.6989595073354225`*^9}, {3.6993043023696136`*^9, 3.699304307702918*^9}, {
   3.6993043721446047`*^9, 3.699304378515969*^9}, {3.6993044759011993`*^9, 
   3.6993044785532045`*^9}, {3.699314064248489*^9, 3.6993140645604897`*^9}, {
   3.6993143856246533`*^9, 3.6993143878866577`*^9}, 3.6993312086124783`*^9, {
   3.6993318922836795`*^9, 3.6993319454173727`*^9}, {3.6993804022164555`*^9, 
   3.6993804027724876`*^9}, {3.699392756369016*^9, 3.6993927744080477`*^9}, {
   3.6993928046237764`*^9, 3.699392805854847*^9}, 3.699817327014764*^9, {
   3.699982277367172*^9, 3.699982277367172*^9}, {3.700164199547598*^9, 
   3.700164199547598*^9}, {3.7005116555662823`*^9, 3.700511666002701*^9}, {
   3.70084426132417*^9, 3.700844261884171*^9}, {3.70084467221391*^9, 
   3.700844672853911*^9}, {3.700845731483612*^9, 3.7008457318836126`*^9}, {
   3.7008488852924848`*^9, 3.7008488856724854`*^9}, 3.700848925624571*^9, {
   3.710186956856776*^9, 3.7101869586368785`*^9}, 3.7104422230974545`*^9, 
   3.71044225816146*^9, {3.7104427061540837`*^9, 3.7104427061550837`*^9}, {
   3.7104427545698533`*^9, 3.7104427545698533`*^9}, 3.710443630779969*^9, 
   3.7104441209410048`*^9, {3.713481059964424*^9, 3.713481094278387*^9}, {
   3.71348112720827*^9, 3.7134811380758915`*^9}, {3.713482007568624*^9, 
   3.7134820129389315`*^9}, {3.713482080353787*^9, 3.7134821218791623`*^9}, {
   3.7134823066147285`*^9, 3.7134823368464575`*^9}, {3.71348286856787*^9, 
   3.7134828711590185`*^9}, {3.7134837792939606`*^9, 3.713483788397482*^9}, {
   3.713489121239503*^9, 3.713489122509575*^9}, {3.7134894237028027`*^9, 
   3.713489424144828*^9}, {3.7134898695433035`*^9, 3.713489870378351*^9}, {
   3.7134907870667825`*^9, 3.713490797411374*^9}, {3.713490909265772*^9, 
   3.713490930684997*^9}, {3.713496528691185*^9, 3.7134965532215877`*^9}, {
   3.713545327405496*^9, 3.7135453278795233`*^9}, {3.7135453645356197`*^9, 
   3.7135453683688393`*^9}, {3.7141989531730795`*^9, 3.714198953410093*^9}, {
   3.741636115294568*^9, 3.7416361166045704`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and binomial recurrence 3b", \
"Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.496625755369381*^9}, {3.4966258193762937`*^9, 
   3.4966258405299306`*^9}, {3.6399550765710435`*^9, 3.639955082269369*^9}, {
   3.6401374201056223`*^9, 3.640137424315863*^9}, {3.6401375942005796`*^9, 
   3.640137598524827*^9}, {3.642353555003594*^9, 3.642353582227642*^9}, 
   3.642354404964499*^9, {3.6423546712309093`*^9, 3.642354672010911*^9}, 
   3.6424492113078194`*^9, 3.699304225143196*^9, {3.700512005490497*^9, 
   3.700512007861701*^9}, {3.7008444743166237`*^9, 3.7008444748866243`*^9}, {
   3.713482267951517*^9, 3.713482271364712*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"x", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "2"]}]}], ")"}], 
       RowBox[{"p", "+", "1"}]]}], "a"], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "p"}], "+", "3"}], ")"}]}], "a"], " ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]],
  CellChangeTimes->{{3.713483999116534*^9, 3.713484018523644*^9}, {
   3.7134841039605308`*^9, 3.7134841223035803`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.496625755369381*^9}, {3.4966258193762937`*^9, 
   3.4966258405299306`*^9}, {3.6399550765710435`*^9, 3.639955082269369*^9}, {
   3.6401374201056223`*^9, 3.640137424315863*^9}, {3.6401375942005796`*^9, 
   3.640137598524827*^9}, {3.642353555003594*^9, 3.642353582227642*^9}, 
   3.642354404964499*^9, {3.6423546712309093`*^9, 3.642354672010911*^9}, 
   3.6424492113078194`*^9, 3.699304225143196*^9, {3.700512005490497*^9, 
   3.700512007861701*^9}, {3.7008444743166237`*^9, 3.7008444748866243`*^9}, {
   3.713482267951517*^9, 3.713482271364712*^9}, {3.7134839898120017`*^9, 
   3.7134839916791086`*^9}, 3.7134841512122335`*^9, {3.7134909542093425`*^9, 
   3.7134909841200533`*^9}, {3.7134910158088655`*^9, 3.7134910186650295`*^9}}],

Cell[TextData[{
 "Note: Interestingly this rule eleminates the constant term of ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["P", "q"], "[", 
   SuperscriptBox["x", "2"], "]"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
    3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
    3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
    3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
    3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
    3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
    3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
    3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
    3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
    3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
    3.6370897114519634`*^9, {3.6371862298426294`*^9, 
    3.6371862430090523`*^9}, {3.6371862984515495`*^9, 3.637186301774356*^9}, {
    3.6371887477339196`*^9, 3.6371887602023416`*^9}, 3.6371888596021166`*^9, 
    3.6371893376058793`*^9, {3.6371894438032665`*^9, 3.637189444801668*^9}, {
    3.637189670816266*^9, 3.6371896795854816`*^9}, 3.6371898591411977`*^9, {
    3.6371905099860706`*^9, 3.6371905139328775`*^9}, {3.6371906102906475`*^9, 
    3.637190618012661*^9}, {3.637190835507845*^9, 3.637190848845868*^9}, {
    3.6373466546214585`*^9, 3.637346654683462*^9}, {3.637346791003259*^9, 
    3.6373468018618803`*^9}, {3.637348466687103*^9, 3.6373485922982874`*^9}, {
    3.6373486756750565`*^9, 3.637348682319436*^9}, {3.6373487373425837`*^9, 
    3.6373487401527443`*^9}, {3.637348790702636*^9, 3.637348820705352*^9}, 
    3.63734886438385*^9, {3.6373490182086477`*^9, 3.6373490215648403`*^9}, {
    3.6373490900367565`*^9, 3.6373490904587803`*^9}, {3.637349137269458*^9, 
    3.6373491541974263`*^9}, {3.637349189703457*^9, 3.6373492006570835`*^9}, {
    3.637349234136998*^9, 3.6373492345890245`*^9}, {3.6373499826398106`*^9, 
    3.6373500087653046`*^9}, 3.637554941363757*^9, {3.6375558480506163`*^9, 
    3.6375558769092674`*^9}, {3.6376018906471624`*^9, 3.637601944909266*^9}, {
    3.637602620978935*^9, 3.637602635720778*^9}, 3.637602695485196*^9, {
    3.637602807847623*^9, 3.6376028080106325`*^9}, {3.6377793840937185`*^9, 
    3.63777938411572*^9}, {3.637779665363806*^9, 3.637779675713398*^9}, {
    3.638054081963513*^9, 3.6380541267025833`*^9}, {3.6380542121157103`*^9, 
    3.638054215183715*^9}, 3.638054290738826*^9, {3.6396984526267314`*^9, 
    3.6396984732467604`*^9}, {3.6396985325468435`*^9, 
    3.6396985367168493`*^9}, {3.6397065462037907`*^9, 3.639706582551854*^9}, {
    3.639706632861943*^9, 3.6397066444371634`*^9}, {3.6397066851688347`*^9, 
    3.6397066896928425`*^9}, {3.639706818049868*^9, 3.639706831094691*^9}, {
    3.6397071475100465`*^9, 3.6397071826101084`*^9}, {3.639707238224206*^9, 
    3.6397073814636574`*^9}, {3.63970754233114*^9, 3.6397075626111755`*^9}, {
    3.6397078875285463`*^9, 3.6397079724082956`*^9}, {3.6397080237323856`*^9, 
    3.639708039816014*^9}, {3.6397080991897182`*^9, 3.6397081061161304`*^9}, 
    3.639955176291747*^9, {3.6399552097496605`*^9, 3.6399552376682577`*^9}, {
    3.63995531340259*^9, 3.6399553153487005`*^9}, {3.6399654599269376`*^9, 
    3.639965529720929*^9}, {3.6399661499154024`*^9, 3.6399661817342224`*^9}, {
    3.6399662469459524`*^9, 3.6399662789637833`*^9}, {3.639966575527746*^9, 
    3.6399666177551613`*^9}, {3.639966699001808*^9, 3.639966703802083*^9}, {
    3.639968426143595*^9, 3.6399684266036215`*^9}, {3.639968756595496*^9, 
    3.6399688132987394`*^9}, 3.6401173864569387`*^9, {3.6401174222929883`*^9, 
    3.6401174339606557`*^9}, {3.6401174961802144`*^9, 3.640117538357627*^9}, 
    3.640118018271076*^9, {3.640118145892376*^9, 3.6401181829524956`*^9}, {
    3.6401220574836793`*^9, 3.640122060354084*^9}, {3.6401221910043135`*^9, 
    3.6401222978645015`*^9}, 3.6401225314593115`*^9, 3.6401230482726192`*^9, 
    3.640134158344934*^9, 3.6401342041622143`*^9, {3.6401342901183653`*^9, 
    3.640134344858862*^9}, {3.640134391066143*^9, 3.640134399068957*^9}, 
    3.640134519797569*^9, {3.640134568750455*^9, 3.6401345698892565`*^9}, {
    3.6401346163461385`*^9, 3.6401347228319254`*^9}, {3.6401374469111557`*^9, 
    3.640137454084566*^9}, {3.6401376819225974`*^9, 3.640137696030404*^9}, {
    3.640137909063589*^9, 3.6401379291567383`*^9}, 3.6401379769964747`*^9, 
    3.640138058161117*^9, {3.640138092792098*^9, 3.6401381268030434`*^9}, {
    3.6401381731606946`*^9, 3.6401381833852797`*^9}, {3.640138229283905*^9, 
    3.6401382530762653`*^9}, {3.6401383106145563`*^9, 
    3.6401383537100215`*^9}, {3.6401384231399927`*^9, 
    3.6401384433931513`*^9}, {3.640138514544221*^9, 3.6401385154382715`*^9}, {
    3.6401386934494534`*^9, 3.640138715160695*^9}, 3.6401387729089985`*^9, 
    3.6401388357335916`*^9, {3.6401388729317193`*^9, 
    3.6401388994692373`*^9}, {3.6401389764586406`*^9, 3.640138998632909*^9}, {
    3.6401390493548098`*^9, 3.6401390597654057`*^9}, 3.640139095873471*^9, 
    3.6401391712057796`*^9, {3.6401393526831594`*^9, 
    3.6401394031080437`*^9}, {3.640139453724939*^9, 3.6401394910710745`*^9}, 
    3.6401400398914657`*^9, {3.640140128388527*^9, 3.6401401302016306`*^9}, 
    3.640224999685936*^9, {3.640225039567217*^9, 3.640225040088247*^9}, {
    3.6402251025038166`*^9, 3.6402251047369447`*^9}, {3.640225367448971*^9, 
    3.6402253697561026`*^9}, {3.640225443969348*^9, 3.6402254444103727`*^9}, {
    3.640225501289626*^9, 3.640225503886775*^9}, 3.6402255634841833`*^9, {
    3.6402280333822565`*^9, 3.640228042030672*^9}, {3.6402280720511255`*^9, 
    3.6402280766219335`*^9}, 3.640228203661358*^9, {3.6402282713140774`*^9, 
    3.640228276306086*^9}, 3.640228331133583*^9, 3.640228411072255*^9, {
    3.6402284466423173`*^9, 3.6402284470791183`*^9}, {3.640228864212655*^9, 
    3.640228871669468*^9}, {3.640276247579282*^9, 3.640276250903289*^9}, {
    3.6402763121874037`*^9, 3.640276319279416*^9}, {3.6402765397648053`*^9, 
    3.6402765454298153`*^9}, {3.640276704268242*^9, 3.640276728379285*^9}, 
    3.640276768380356*^9, {3.640276857666518*^9, 3.640276859758521*^9}, {
    3.6402769857767377`*^9, 3.6402769862267385`*^9}, {3.640277019202799*^9, 
    3.640277024628808*^9}, {3.6402770855319214`*^9, 3.640277104502957*^9}, 
    3.640277146051032*^9, {3.6402772108631487`*^9, 3.6402772512992225`*^9}, {
    3.640277304944318*^9, 3.640277394188485*^9}, {3.640277450741592*^9, 
    3.640277482091776*^9}, {3.6402775183318434`*^9, 3.640277520567848*^9}, {
    3.6402775741409464`*^9, 3.640277585850968*^9}, {3.6402776162850246`*^9, 
    3.6402776899471617`*^9}, 3.640277746770274*^9, {3.6402779308006105`*^9, 
    3.6402779383226233`*^9}, {3.6402779790936966`*^9, 3.6402780214237747`*^9},
     3.6402780680798597`*^9, {3.640281976685492*^9, 3.6402819809875*^9}, {
    3.640282023298706*^9, 3.6402820937048397`*^9}, {3.6402821529389453`*^9, 
    3.640282153828947*^9}, 3.6402823379792776`*^9, 3.6402824362404566`*^9, 
    3.6402825205076056`*^9, {3.640282689547907*^9, 3.64028269775992*^9}, {
    3.6402827798460665`*^9, 3.6402827875460806`*^9}, 3.64039736486734*^9, 
    3.640397560528531*^9, {3.64039767816926*^9, 3.6403977704405375`*^9}, {
    3.6403978112788734`*^9, 3.6403978123089323`*^9}, 3.640397854368338*^9, 
    3.640397895640699*^9, {3.6403979450655255`*^9, 3.64039796717679*^9}, {
    3.640397999210623*^9, 3.6403980060440135`*^9}, {3.640398199215062*^9, 
    3.6403982041133423`*^9}, 3.640398377107237*^9, 3.6403984145493784`*^9, {
    3.640398453928631*^9, 3.640398555229425*^9}, {3.640398591457497*^9, 
    3.6403986212682023`*^9}, {3.640398687807008*^9, 3.6403987170286794`*^9}, {
    3.640398779416248*^9, 3.640398817865447*^9}, {3.6403990409452066`*^9, 
    3.640399042641303*^9}, {3.640399072955037*^9, 3.640399090346032*^9}, {
    3.640399144407124*^9, 3.640399157537875*^9}, {3.640399193102909*^9, 
    3.640399225234747*^9}, {3.6403993692999873`*^9, 3.6403993737312407`*^9}, 
    3.640399405215041*^9, {3.64039949452415*^9, 3.640399495028178*^9}, {
    3.640399549228278*^9, 3.6403995885625286`*^9}, {3.6403996252776284`*^9, 
    3.6403997166308537`*^9}, 3.640399756483133*^9, {3.6403997982495213`*^9, 
    3.6403998898597617`*^9}, {3.6404003460808563`*^9, 
    3.6404003514761643`*^9}, {3.6404003832629824`*^9, 3.640400406020284*^9}, {
    3.6404005756619873`*^9, 3.640400595082098*^9}, {3.640400811230461*^9, 
    3.640400814379641*^9}, 3.640400984195354*^9, {3.6404041692955313`*^9, 
    3.640404182280274*^9}, {3.6404042157391877`*^9, 3.6404042164282274`*^9}, {
    3.6404043154648914`*^9, 3.640404332871887*^9}, {3.6404043700590143`*^9, 
    3.640404376088359*^9}, {3.640404429444411*^9, 3.640404434268687*^9}, 
    3.640449462800009*^9, {3.6404529466141376`*^9, 3.640452962662162*^9}, {
    3.64045309084336*^9, 3.64045312384241*^9}, {3.64045326090662*^9, 
    3.640453261556621*^9}, {3.6404533074936914`*^9, 3.640453308723694*^9}, {
    3.6404533735777936`*^9, 3.640453402950839*^9}, {3.6404534812319613`*^9, 
    3.640453507918002*^9}, {3.6404535568940763`*^9, 3.640453582986117*^9}, 
    3.6404549270544634`*^9, {3.640968698398822*^9, 3.640968707712038*^9}, {
    3.6409687418780985`*^9, 3.64096881120862*^9}, {3.6409690361844177`*^9, 
    3.6409690423464284`*^9}, {3.640969085597705*^9, 3.6409690897025123`*^9}, 
    3.640969139381*^9, {3.6409691759368644`*^9, 3.640969192071293*^9}, {
    3.640969242969583*^9, 3.640969243577984*^9}, {3.6409693208559203`*^9, 
    3.640969321791922*^9}, 3.640969352093176*^9, {3.6409694272216454`*^9, 
    3.6409694431678734`*^9}, {3.6409695072403884`*^9, 3.64096951953521*^9}, {
    3.6409695545300717`*^9, 3.640969555310073*^9}, {3.640969648781838*^9, 
    3.640969680906295*^9}, 3.640969718493761*^9, 3.640972127383387*^9, {
    3.6409723269436784`*^9, 3.6409723299236827`*^9}, 3.6409724491138563`*^9, {
    3.641003170616477*^9, 3.641003176029686*^9}, {3.6412428184583683`*^9, 
    3.641242825432581*^9}, {3.6412429052563257`*^9, 3.6412429082359314`*^9}, 
    3.641242955521015*^9, 3.641243203674064*^9, {3.642347873946699*^9, 
    3.642347916216173*^9}, {3.6423482509213095`*^9, 3.642348295298788*^9}, {
    3.6423483569650974`*^9, 3.6423484073943863`*^9}, {3.64234857022908*^9, 
    3.6423486260403786`*^9}, {3.6423488808440323`*^9, 
    3.6423489308053207`*^9}, {3.642348976339201*^9, 3.6423490714469175`*^9}, {
    3.6423491610920763`*^9, 3.6423491623712783`*^9}, {3.642349204628153*^9, 
    3.642349207498558*^9}, {3.6423492443850236`*^9, 3.6423492482070303`*^9}, {
    3.64234932159196*^9, 3.642349407440312*^9}, {3.642349442503574*^9, 
    3.6423494812766423`*^9}, {3.642349543208152*^9, 3.6423495459713573`*^9}, {
    3.642349785921383*^9, 3.6423498548915052`*^9}, {3.642352084057685*^9, 
    3.642352084354086*^9}, {3.642352501664625*^9, 3.642352507781836*^9}, {
    3.642352606083963*^9, 3.6423526197057867`*^9}, {3.6423526727840805`*^9, 
    3.6423526732988815`*^9}, {3.6423527071101413`*^9, 
    3.6423527225697684`*^9}, {3.6423528044335136`*^9, 3.6423528459249873`*^9},
     3.6423528825638523`*^9, {3.6423531276942854`*^9, 3.642353142686912*^9}, 
    3.6423532085798283`*^9, {3.642354748702047*^9, 3.6423547542712564`*^9}, 
    3.642354905694925*^9, {3.642361802691332*^9, 3.642361803121332*^9}, {
    3.642361839779395*^9, 3.6423618464784093`*^9}, {3.6423619790786247`*^9, 
    3.6423619831016307`*^9}, {3.6423620485267487`*^9, 
    3.6423620489477496`*^9}, {3.642363307705149*^9, 3.642363319786167*^9}, {
    3.642365394098173*^9, 3.6423653949581747`*^9}, {3.6423654265872374`*^9, 
    3.6423654271572385`*^9}, {3.6423655302754183`*^9, 3.64236553182542*^9}, {
    3.642365680393689*^9, 3.6423656961067114`*^9}, {3.642368509743648*^9, 
    3.642368530378681*^9}, 3.6424450372050714`*^9, {3.6424451949974165`*^9, 
    3.6424452104764624`*^9}, {3.6424452990386915`*^9, 
    3.6424453028106966`*^9}, {3.642445371766858*^9, 3.6424454159339437`*^9}, 
    3.6424454459491515`*^9, {3.6424454887212796`*^9, 3.642445632408658*^9}, {
    3.642449036091256*^9, 3.6424490366442575`*^9}, {3.642449503415561*^9, 
    3.642449521052593*^9}, {3.6424499150515165`*^9, 3.642449929904558*^9}, {
    3.6989576225866213`*^9, 3.698957622621623*^9}, {3.6993041162768693`*^9, 
    3.6993041511429305`*^9}, {3.6993042428222075`*^9, 
    3.6993042897818937`*^9}, {3.6993046701527405`*^9, 3.6993046765799522`*^9},
     3.6993047234112344`*^9, {3.699304808696584*^9, 3.6993048237506104`*^9}, {
    3.6993049540420394`*^9, 3.6993051319915524`*^9}, {3.699305209944889*^9, 
    3.6993052357785344`*^9}, 3.699305276135805*^9, {3.69930530738266*^9, 
    3.6993053788151855`*^9}, {3.69930999811992*^9, 3.69930999833832*^9}, {
    3.6993100589444265`*^9, 3.6993100835768695`*^9}, {3.6993101216565366`*^9, 
    3.6993102577043753`*^9}, {3.699311698145533*^9, 3.699311727130384*^9}, {
    3.6993120741685934`*^9, 3.699312078895402*^9}, 3.6993121794063787`*^9, {
    3.6993125192373753`*^9, 3.6993125456794214`*^9}, {3.699312577363077*^9, 
    3.69931257886068*^9}, {3.6993138255056696`*^9, 3.6993138353180866`*^9}, 
    3.6993150399366026`*^9, 3.699315173800438*^9, {3.699331208893279*^9, 
    3.6993312089244795`*^9}, 3.6993319478041773`*^9, {3.699332037816335*^9, 
    3.6993320564895678`*^9}, {3.6993328849403477`*^9, 3.6993328964150047`*^9},
     3.6993330982593775`*^9, 3.6993911115202885`*^9, {3.699817292538703*^9, 
    3.699817322787156*^9}, 3.699817358058818*^9, {3.6998174218161297`*^9, 
    3.6998174515653825`*^9}, {3.699817482188236*^9, 3.6998175259775133`*^9}, {
    3.700511461642342*^9, 3.700511481641577*^9}, {3.700511861361844*^9, 
    3.70051186480945*^9}, {3.700512125563908*^9, 3.7005121480747476`*^9}, {
    3.7005121990868373`*^9, 3.700512201348841*^9}, {3.700512236433303*^9, 
    3.700512248164523*^9}, {3.700512282609384*^9, 3.7005123039814215`*^9}, 
    3.700512705214126*^9, {3.700844268664181*^9, 3.7008442759071913`*^9}, {
    3.7008443083262377`*^9, 3.7008443370342784`*^9}, {3.7008443933143597`*^9, 
    3.700844408867382*^9}, {3.7008446545108852`*^9, 3.7008446597608924`*^9}, {
    3.7008448866012216`*^9, 3.7008448956342344`*^9}, {3.710442223124456*^9, 
    3.7104422231394567`*^9}, {3.7104422581704607`*^9, 3.710442258195462*^9}, {
    3.7104428216416893`*^9, 3.710442850596346*^9}, {3.7104429024383106`*^9, 
    3.7104429304799147`*^9}, {3.710443630807971*^9, 3.7104436308229723`*^9}, {
    3.710443987220357*^9, 3.7104439986360097`*^9}, {3.7104441209500055`*^9, 
    3.710444120972007*^9}, {3.7104443143460674`*^9, 3.710444317086224*^9}, {
    3.7104449799231358`*^9, 3.710444980721182*^9}, {3.710445092953601*^9, 
    3.7104451756863327`*^9}, {3.7104452116573906`*^9, 
    3.7104452266762495`*^9}, {3.710445267926609*^9, 3.710445287147708*^9}, 
    3.710445589067977*^9, {3.7134811507766185`*^9, 3.713481165951486*^9}, 
    3.713481200249448*^9, {3.713481242263851*^9, 3.7134812908256283`*^9}, {
    3.713481361024644*^9, 3.713481364483842*^9}, {3.713481481316524*^9, 
    3.713481506928989*^9}, {3.7134817032792196`*^9, 3.713481717830052*^9}, {
    3.7134818684076643`*^9, 3.7134818843295755`*^9}, {3.713482432366921*^9, 
    3.713482512578509*^9}, {3.7134825866527452`*^9, 3.7134825933321276`*^9}, {
    3.7134826287501535`*^9, 3.7134826785530024`*^9}, {3.713482711830906*^9, 
    3.7134827452388163`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " rather than the highest degree term."
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.496625755369381*^9}, {3.4966258193762937`*^9, 
   3.4966258405299306`*^9}, {3.6399550765710435`*^9, 3.639955082269369*^9}, {
   3.6401374201056223`*^9, 3.640137424315863*^9}, {3.6401375942005796`*^9, 
   3.640137598524827*^9}, {3.642353555003594*^9, 3.642353582227642*^9}, 
   3.642354404964499*^9, {3.6423546712309093`*^9, 3.642354672010911*^9}, 
   3.6424492113078194`*^9, 3.699304225143196*^9, {3.700512005490497*^9, 
   3.700512007861701*^9}, {3.7008444743166237`*^9, 3.7008444748866243`*^9}, {
   3.713482267951517*^9, 3.713482271364712*^9}, {3.713489033968511*^9, 
   3.713489086118494*^9}, {3.713489324584133*^9, 3.7134893527047415`*^9}, {
   3.713489635999945*^9, 3.713489701016664*^9}}],

Cell[TextData[{
 "Rule 1.1.2.x.4.1: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "+", 
     FractionBox["1", "2"]}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", "q"}], "+", 
     RowBox[{"2", " ", "p"}], "+", "1"}], "<", "0"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"A", "\[Rule]", 
   RowBox[{
    SubscriptBox["P", "q"], "[", 
    RowBox[{
     SuperscriptBox["x", "2"], ",", "0"}], "]"}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
    3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
    3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
    3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
    3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
    3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
    3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
    3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
    3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
    3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
    3.6370897114519634`*^9, {3.6371862298426294`*^9, 
    3.6371862430090523`*^9}, {3.6371862984515495`*^9, 3.637186301774356*^9}, {
    3.6371887477339196`*^9, 3.6371887602023416`*^9}, 3.6371888596021166`*^9, 
    3.6371893376058793`*^9, {3.6371894438032665`*^9, 3.637189444801668*^9}, {
    3.637189670816266*^9, 3.6371896795854816`*^9}, 3.6371898591411977`*^9, {
    3.6371905099860706`*^9, 3.6371905139328775`*^9}, {3.6371906102906475`*^9, 
    3.637190618012661*^9}, {3.637190835507845*^9, 3.637190848845868*^9}, {
    3.6373466546214585`*^9, 3.637346654683462*^9}, {3.637346791003259*^9, 
    3.6373468018618803`*^9}, {3.637348466687103*^9, 3.6373485922982874`*^9}, {
    3.6373486756750565`*^9, 3.637348682319436*^9}, {3.6373487373425837`*^9, 
    3.6373487401527443`*^9}, {3.637348790702636*^9, 3.637348820705352*^9}, 
    3.63734886438385*^9, {3.6373490182086477`*^9, 3.6373490215648403`*^9}, {
    3.6373490900367565`*^9, 3.6373490904587803`*^9}, {3.637349137269458*^9, 
    3.6373491541974263`*^9}, {3.637349189703457*^9, 3.6373492006570835`*^9}, {
    3.637349234136998*^9, 3.6373492345890245`*^9}, {3.6373499826398106`*^9, 
    3.6373500087653046`*^9}, 3.637554941363757*^9, {3.6375558480506163`*^9, 
    3.6375558769092674`*^9}, {3.6376018906471624`*^9, 3.637601944909266*^9}, {
    3.637602620978935*^9, 3.637602635720778*^9}, 3.637602695485196*^9, {
    3.637602807847623*^9, 3.6376028080106325`*^9}, {3.6377793840937185`*^9, 
    3.63777938411572*^9}, {3.637779665363806*^9, 3.637779675713398*^9}, {
    3.638054081963513*^9, 3.6380541267025833`*^9}, {3.6380542121157103`*^9, 
    3.638054215183715*^9}, 3.638054290738826*^9, {3.6396984526267314`*^9, 
    3.6396984732467604`*^9}, {3.6396985325468435`*^9, 
    3.6396985367168493`*^9}, {3.6397065462037907`*^9, 3.639706582551854*^9}, {
    3.639706632861943*^9, 3.6397066444371634`*^9}, {3.6397066851688347`*^9, 
    3.6397066896928425`*^9}, {3.639706818049868*^9, 3.639706831094691*^9}, {
    3.6397071475100465`*^9, 3.6397071826101084`*^9}, {3.639707238224206*^9, 
    3.6397073814636574`*^9}, {3.63970754233114*^9, 3.6397075626111755`*^9}, {
    3.6397078875285463`*^9, 3.6397079724082956`*^9}, {3.6397080237323856`*^9, 
    3.639708039816014*^9}, {3.6397080991897182`*^9, 3.6397081061161304`*^9}, 
    3.639955176291747*^9, {3.6399552097496605`*^9, 3.6399552376682577`*^9}, {
    3.63995531340259*^9, 3.6399553153487005`*^9}, {3.6399654599269376`*^9, 
    3.639965529720929*^9}, {3.6399661499154024`*^9, 3.6399661817342224`*^9}, {
    3.6399662469459524`*^9, 3.6399662789637833`*^9}, {3.639966575527746*^9, 
    3.6399666177551613`*^9}, {3.639966699001808*^9, 3.639966703802083*^9}, {
    3.639968426143595*^9, 3.6399684266036215`*^9}, {3.639968756595496*^9, 
    3.6399688132987394`*^9}, 3.6401173864569387`*^9, {3.6401174222929883`*^9, 
    3.6401174339606557`*^9}, {3.6401174961802144`*^9, 3.640117538357627*^9}, 
    3.640118018271076*^9, {3.640118145892376*^9, 3.6401181829524956`*^9}, {
    3.6401220574836793`*^9, 3.640122060354084*^9}, {3.6401221910043135`*^9, 
    3.6401222978645015`*^9}, 3.6401225314593115`*^9, 3.6401230482726192`*^9, 
    3.640134158344934*^9, 3.6401342041622143`*^9, {3.6401342901183653`*^9, 
    3.640134344858862*^9}, {3.640134391066143*^9, 3.640134399068957*^9}, 
    3.640134519797569*^9, {3.640134568750455*^9, 3.6401345698892565`*^9}, {
    3.6401346163461385`*^9, 3.6401347228319254`*^9}, {3.6401374469111557`*^9, 
    3.640137454084566*^9}, {3.6401376819225974`*^9, 3.640137696030404*^9}, {
    3.640137909063589*^9, 3.6401379291567383`*^9}, 3.6401379769964747`*^9, 
    3.640138058161117*^9, {3.640138092792098*^9, 3.6401381268030434`*^9}, {
    3.6401381731606946`*^9, 3.6401381833852797`*^9}, {3.640138229283905*^9, 
    3.6401382530762653`*^9}, {3.6401383106145563`*^9, 
    3.6401383537100215`*^9}, {3.6401384231399927`*^9, 
    3.6401384433931513`*^9}, {3.640138514544221*^9, 3.6401385154382715`*^9}, {
    3.6401386934494534`*^9, 3.640138715160695*^9}, 3.6401387729089985`*^9, 
    3.6401388357335916`*^9, {3.6401388729317193`*^9, 
    3.6401388994692373`*^9}, {3.6401389764586406`*^9, 3.640138998632909*^9}, {
    3.6401390493548098`*^9, 3.6401390597654057`*^9}, 3.640139095873471*^9, 
    3.6401391712057796`*^9, {3.6401393526831594`*^9, 
    3.6401394031080437`*^9}, {3.640139453724939*^9, 3.6401394910710745`*^9}, 
    3.6401400398914657`*^9, {3.640140128388527*^9, 3.6401401302016306`*^9}, 
    3.640224999685936*^9, {3.640225039567217*^9, 3.640225040088247*^9}, {
    3.6402251025038166`*^9, 3.6402251047369447`*^9}, {3.640225367448971*^9, 
    3.6402253697561026`*^9}, {3.640225443969348*^9, 3.6402254444103727`*^9}, {
    3.640225501289626*^9, 3.640225503886775*^9}, 3.6402255634841833`*^9, {
    3.6402280333822565`*^9, 3.640228042030672*^9}, {3.6402280720511255`*^9, 
    3.6402280766219335`*^9}, 3.640228203661358*^9, {3.6402282713140774`*^9, 
    3.640228276306086*^9}, 3.640228331133583*^9, 3.640228411072255*^9, {
    3.6402284466423173`*^9, 3.6402284470791183`*^9}, {3.640228864212655*^9, 
    3.640228871669468*^9}, {3.640276247579282*^9, 3.640276250903289*^9}, {
    3.6402763121874037`*^9, 3.640276319279416*^9}, {3.6402765397648053`*^9, 
    3.6402765454298153`*^9}, {3.640276704268242*^9, 3.640276728379285*^9}, 
    3.640276768380356*^9, {3.640276857666518*^9, 3.640276859758521*^9}, {
    3.6402769857767377`*^9, 3.6402769862267385`*^9}, {3.640277019202799*^9, 
    3.640277024628808*^9}, {3.6402770855319214`*^9, 3.640277104502957*^9}, 
    3.640277146051032*^9, {3.6402772108631487`*^9, 3.6402772512992225`*^9}, {
    3.640277304944318*^9, 3.640277394188485*^9}, {3.640277450741592*^9, 
    3.640277482091776*^9}, {3.6402775183318434`*^9, 3.640277520567848*^9}, {
    3.6402775741409464`*^9, 3.640277585850968*^9}, {3.6402776162850246`*^9, 
    3.6402776899471617`*^9}, 3.640277746770274*^9, {3.6402779308006105`*^9, 
    3.6402779383226233`*^9}, {3.6402779790936966`*^9, 3.6402780214237747`*^9},
     3.6402780680798597`*^9, {3.640281976685492*^9, 3.6402819809875*^9}, {
    3.640282023298706*^9, 3.6402820937048397`*^9}, {3.6402821529389453`*^9, 
    3.640282153828947*^9}, 3.6402823379792776`*^9, 3.6402824362404566`*^9, 
    3.6402825205076056`*^9, {3.640282689547907*^9, 3.64028269775992*^9}, {
    3.6402827798460665`*^9, 3.6402827875460806`*^9}, 3.64039736486734*^9, 
    3.640397560528531*^9, {3.64039767816926*^9, 3.6403977704405375`*^9}, {
    3.6403978112788734`*^9, 3.6403978123089323`*^9}, 3.640397854368338*^9, 
    3.640397895640699*^9, {3.6403979450655255`*^9, 3.64039796717679*^9}, {
    3.640397999210623*^9, 3.6403980060440135`*^9}, {3.640398199215062*^9, 
    3.6403982041133423`*^9}, 3.640398377107237*^9, 3.6403984145493784`*^9, {
    3.640398453928631*^9, 3.640398555229425*^9}, {3.640398591457497*^9, 
    3.6403986212682023`*^9}, {3.640398687807008*^9, 3.6403987170286794`*^9}, {
    3.640398779416248*^9, 3.640398817865447*^9}, {3.6403990409452066`*^9, 
    3.640399042641303*^9}, {3.640399072955037*^9, 3.640399090346032*^9}, {
    3.640399144407124*^9, 3.640399157537875*^9}, {3.640399193102909*^9, 
    3.640399225234747*^9}, {3.6403993692999873`*^9, 3.6403993737312407`*^9}, 
    3.640399405215041*^9, {3.64039949452415*^9, 3.640399495028178*^9}, {
    3.640399549228278*^9, 3.6403995885625286`*^9}, {3.6403996252776284`*^9, 
    3.6403997166308537`*^9}, 3.640399756483133*^9, {3.6403997982495213`*^9, 
    3.6403998898597617`*^9}, {3.6404003460808563`*^9, 
    3.6404003514761643`*^9}, {3.6404003832629824`*^9, 3.640400406020284*^9}, {
    3.6404005756619873`*^9, 3.640400595082098*^9}, {3.640400811230461*^9, 
    3.640400814379641*^9}, 3.640400984195354*^9, {3.6404041692955313`*^9, 
    3.640404182280274*^9}, {3.6404042157391877`*^9, 3.6404042164282274`*^9}, {
    3.6404043154648914`*^9, 3.640404332871887*^9}, {3.6404043700590143`*^9, 
    3.640404376088359*^9}, {3.640404429444411*^9, 3.640404434268687*^9}, 
    3.640449462800009*^9, {3.6404529466141376`*^9, 3.640452962662162*^9}, {
    3.64045309084336*^9, 3.64045312384241*^9}, {3.64045326090662*^9, 
    3.640453261556621*^9}, {3.6404533074936914`*^9, 3.640453308723694*^9}, {
    3.6404533735777936`*^9, 3.640453402950839*^9}, {3.6404534812319613`*^9, 
    3.640453507918002*^9}, {3.6404535568940763`*^9, 3.640453582986117*^9}, 
    3.6404549270544634`*^9, {3.640968698398822*^9, 3.640968707712038*^9}, {
    3.6409687418780985`*^9, 3.64096881120862*^9}, {3.6409690361844177`*^9, 
    3.6409690423464284`*^9}, {3.640969085597705*^9, 3.6409690897025123`*^9}, 
    3.640969139381*^9, {3.6409691759368644`*^9, 3.640969192071293*^9}, {
    3.640969242969583*^9, 3.640969243577984*^9}, {3.6409693208559203`*^9, 
    3.640969321791922*^9}, 3.640969352093176*^9, {3.6409694272216454`*^9, 
    3.6409694431678734`*^9}, {3.6409695072403884`*^9, 3.64096951953521*^9}, {
    3.6409695545300717`*^9, 3.640969555310073*^9}, {3.640969648781838*^9, 
    3.640969680906295*^9}, 3.640969718493761*^9, 3.640972127383387*^9, {
    3.6409723269436784`*^9, 3.6409723299236827`*^9}, 3.6409724491138563`*^9, {
    3.641003170616477*^9, 3.641003176029686*^9}, {3.6412428184583683`*^9, 
    3.641242825432581*^9}, {3.6412429052563257`*^9, 3.6412429082359314`*^9}, 
    3.641242955521015*^9, 3.641243203674064*^9, {3.642347873946699*^9, 
    3.642347916216173*^9}, {3.6423482509213095`*^9, 3.642348295298788*^9}, {
    3.6423483569650974`*^9, 3.6423484073943863`*^9}, {3.64234857022908*^9, 
    3.6423486260403786`*^9}, {3.6423488808440323`*^9, 
    3.6423489308053207`*^9}, {3.642348976339201*^9, 3.6423490714469175`*^9}, {
    3.6423491610920763`*^9, 3.6423491623712783`*^9}, {3.642349204628153*^9, 
    3.642349207498558*^9}, {3.6423492443850236`*^9, 3.6423492482070303`*^9}, {
    3.64234932159196*^9, 3.642349407440312*^9}, {3.642349442503574*^9, 
    3.6423494812766423`*^9}, {3.642349543208152*^9, 3.6423495459713573`*^9}, {
    3.642349785921383*^9, 3.6423498548915052`*^9}, {3.642352084057685*^9, 
    3.642352084354086*^9}, {3.642352501664625*^9, 3.642352507781836*^9}, {
    3.642352606083963*^9, 3.6423526197057867`*^9}, {3.6423526727840805`*^9, 
    3.6423526732988815`*^9}, {3.6423527071101413`*^9, 
    3.6423527225697684`*^9}, {3.6423528044335136`*^9, 3.6423528459249873`*^9},
     3.6423528825638523`*^9, {3.6423531276942854`*^9, 3.642353142686912*^9}, 
    3.6423532085798283`*^9, {3.642354748702047*^9, 3.6423547542712564`*^9}, 
    3.642354905694925*^9, {3.642361802691332*^9, 3.642361803121332*^9}, {
    3.642361839779395*^9, 3.6423618464784093`*^9}, {3.6423619790786247`*^9, 
    3.6423619831016307`*^9}, {3.6423620485267487`*^9, 
    3.6423620489477496`*^9}, {3.642363307705149*^9, 3.642363319786167*^9}, {
    3.642365394098173*^9, 3.6423653949581747`*^9}, {3.6423654265872374`*^9, 
    3.6423654271572385`*^9}, {3.6423655302754183`*^9, 3.64236553182542*^9}, {
    3.642365680393689*^9, 3.6423656961067114`*^9}, {3.642368509743648*^9, 
    3.642368530378681*^9}, 3.6424450372050714`*^9, {3.6424451949974165`*^9, 
    3.6424452104764624`*^9}, {3.6424452990386915`*^9, 
    3.6424453028106966`*^9}, {3.642445371766858*^9, 3.6424454159339437`*^9}, 
    3.6424454459491515`*^9, {3.6424454887212796`*^9, 3.642445632408658*^9}, {
    3.642449036091256*^9, 3.6424490366442575`*^9}, {3.642449503415561*^9, 
    3.642449521052593*^9}, {3.6424499150515165`*^9, 3.642449929904558*^9}, {
    3.6989576225866213`*^9, 3.698957622621623*^9}, {3.6993041162768693`*^9, 
    3.6993041511429305`*^9}, {3.6993042428222075`*^9, 
    3.6993042897818937`*^9}, {3.6993046701527405`*^9, 3.6993046765799522`*^9},
     3.6993047234112344`*^9, {3.699304808696584*^9, 3.6993048237506104`*^9}, {
    3.6993049540420394`*^9, 3.6993051319915524`*^9}, {3.699305209944889*^9, 
    3.6993052357785344`*^9}, 3.699305276135805*^9, {3.69930530738266*^9, 
    3.6993053788151855`*^9}, {3.69930999811992*^9, 3.69930999833832*^9}, {
    3.6993100589444265`*^9, 3.6993100835768695`*^9}, {3.6993101216565366`*^9, 
    3.6993102577043753`*^9}, {3.699311698145533*^9, 3.699311727130384*^9}, {
    3.6993120741685934`*^9, 3.699312078895402*^9}, 3.6993121794063787`*^9, {
    3.6993125192373753`*^9, 3.6993125456794214`*^9}, {3.699312577363077*^9, 
    3.69931257886068*^9}, {3.6993138255056696`*^9, 3.6993138353180866`*^9}, 
    3.6993150399366026`*^9, 3.699315173800438*^9, {3.699331208893279*^9, 
    3.6993312089244795`*^9}, 3.6993319478041773`*^9, {3.699332037816335*^9, 
    3.6993320564895678`*^9}, {3.6993328849403477`*^9, 3.6993328964150047`*^9},
     3.6993330982593775`*^9, 3.6993911115202885`*^9, {3.699817292538703*^9, 
    3.699817322787156*^9}, 3.699817358058818*^9, {3.6998174218161297`*^9, 
    3.6998174515653825`*^9}, {3.699817482188236*^9, 3.6998175259775133`*^9}, {
    3.700511461642342*^9, 3.700511481641577*^9}, {3.700511861361844*^9, 
    3.70051186480945*^9}, {3.700512125563908*^9, 3.7005121480747476`*^9}, {
    3.7005121990868373`*^9, 3.700512201348841*^9}, {3.700512236433303*^9, 
    3.700512248164523*^9}, {3.700512282609384*^9, 3.7005123039814215`*^9}, 
    3.700512705214126*^9, {3.700844268664181*^9, 3.7008442759071913`*^9}, {
    3.7008443083262377`*^9, 3.7008443370342784`*^9}, {3.7008443933143597`*^9, 
    3.700844408867382*^9}, {3.7008446545108852`*^9, 3.7008446597608924`*^9}, {
    3.7008448866012216`*^9, 3.7008448956342344`*^9}, {3.710442223124456*^9, 
    3.7104422231394567`*^9}, {3.7104422581704607`*^9, 3.710442258195462*^9}, {
    3.7104428216416893`*^9, 3.710442850596346*^9}, {3.7104429024383106`*^9, 
    3.7104429304799147`*^9}, {3.710443630807971*^9, 3.7104436308229723`*^9}, {
    3.710443987220357*^9, 3.7104439986360097`*^9}, {3.7104441209500055`*^9, 
    3.710444120972007*^9}, {3.7104443143460674`*^9, 3.710444317086224*^9}, {
    3.7104449799231358`*^9, 3.710444980721182*^9}, {3.710445092953601*^9, 
    3.7104451756863327`*^9}, {3.7104452116573906`*^9, 
    3.7104452266762495`*^9}, {3.710445267926609*^9, 3.710445287147708*^9}, 
    3.710445589067977*^9, {3.7134811507766185`*^9, 3.713481165951486*^9}, 
    3.713481200249448*^9, {3.713481242263851*^9, 3.7134812908256283`*^9}, {
    3.713481361024644*^9, 3.713481364483842*^9}, {3.713481481316524*^9, 
    3.713481506928989*^9}, {3.7134817032792196`*^9, 3.713481717830052*^9}, {
    3.7134818684076643`*^9, 3.7134818843295755`*^9}, {3.713482432366921*^9, 
    3.713482512578509*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " and ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["Q", 
     RowBox[{"q", "-", "1"}]], "[", 
    SuperscriptBox["x", "2"], "]"}], "\[Rule]", 
   RowBox[{"PolynomialQuotient", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["P", "q"], "[", 
       SuperscriptBox["x", "2"], "]"}], "-", "A"}], ",", 
     SuperscriptBox["x", "2"], ",", "x"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.6993116049197693`*^9, 3.699311618226593*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522723415243*^9, 
   3.496522765635302*^9}, {3.496523221825941*^9, 3.4965232354159594`*^9}, {
   3.496523793466741*^9, 3.4965238105867653`*^9}, {3.496523849186819*^9, 
   3.496523869436847*^9}, {3.496524240927367*^9, 3.4965242872774324`*^9}, {
   3.496524601367872*^9, 3.496524684427988*^9}, {3.496524967108384*^9, 
   3.4965249730483923`*^9}, {3.49652505695851*^9, 3.4965251102785845`*^9}, {
   3.496525144828633*^9, 3.4965251931087008`*^9}, {3.5193219699389534`*^9, 
   3.5193219718421564`*^9}, {3.5193301896695423`*^9, 3.519330190949544*^9}, {
   3.519970584333412*^9, 3.519970590433421*^9}, {3.519970630913478*^9, 
   3.519970691883563*^9}, {3.523219813418477*^9, 3.523219813418477*^9}, {
   3.532495274800476*^9, 3.532495274800476*^9}, {3.532662806838828*^9, 
   3.532662806838828*^9}, {3.532662956692692*^9, 3.532662956692692*^9}, {
   3.5328847513796377`*^9, 3.5328847523296394`*^9}, {3.5328848329697523`*^9, 
   3.5328848354097557`*^9}, {3.541809412880006*^9, 3.5418094154200096`*^9}, {
   3.541809509150141*^9, 3.541809509150141*^9}, {3.5442389449590654`*^9, 
   3.5442389449590654`*^9}, {3.544239226330159*^9, 3.544239226330159*^9}, {
   3.544309786189745*^9, 3.544309786189745*^9}, {3.5540805633148546`*^9, 
   3.5540805633148546`*^9}, {3.613347171023938*^9, 3.613347171023938*^9}, {
   3.6133475684744945`*^9, 3.6133475684744945`*^9}, {3.613350407440975*^9, 
   3.613350407440975*^9}, {3.613757653545515*^9, 3.613757653545515*^9}, {
   3.634319294439911*^9, 3.634319294439911*^9}, {3.634320903808962*^9, 
   3.634320903808962*^9}, {3.6362396305010676`*^9, 3.636239772998218*^9}, 
   3.636239841428132*^9, {3.6362398796983213`*^9, 3.636239880469365*^9}, {
   3.63623991569838*^9, 3.6362399204736533`*^9}, {3.6362399780699472`*^9, 
   3.6362400389424295`*^9}, {3.636240295738117*^9, 3.636240307909813*^9}, 
   3.6362411836039*^9, {3.6362416844585476`*^9, 3.636241786067359*^9}, {
   3.6362418282937746`*^9, 3.6362418599195833`*^9}, {3.6362419917751245`*^9, 
   3.6362420063029556`*^9}, {3.6368428036528025`*^9, 3.636842806504966*^9}, {
   3.636842840121889*^9, 3.6368429816609845`*^9}, {3.6368430243594265`*^9, 
   3.636843045517637*^9}, {3.637089377538865*^9, 3.637089378066895*^9}, {
   3.6370894593945465`*^9, 3.6370895079703255`*^9}, {3.637089669995592*^9, 
   3.6370896754029016`*^9}, {3.637186189547758*^9, 3.637186189547758*^9}, {
   3.637190101409425*^9, 3.6371901282922726`*^9}, {3.637299468806738*^9, 
   3.637299468806738*^9}, {3.6373467878220773`*^9, 3.6373467888541365`*^9}, {
   3.637350300777007*^9, 3.637350300777007*^9}, {3.6375377233439426`*^9, 
   3.6375377233439426`*^9}, {3.6375383730701046`*^9, 
   3.6375383730701046`*^9}, {3.6375549401116853`*^9, 
   3.6375549401116853`*^9}, {3.637555243557041*^9, 3.637555246842229*^9}, {
   3.6375554367930937`*^9, 3.6375554367930937`*^9}, {3.637601884465809*^9, 
   3.6376018856878786`*^9}, {3.6376030521165943`*^9, 3.637603062297177*^9}, {
   3.638054209525707*^9, 3.6380542097757072`*^9}, {3.6380542499357653`*^9, 
   3.6380542499357653`*^9}, {3.6397066314267406`*^9, 
   3.6397066320819416`*^9}, {3.6397066844824333`*^9, 
   3.6397066844824333`*^9}, {3.6397071372140284`*^9, 
   3.6397071372140284`*^9}, {3.639707870259316*^9, 3.639707870259316*^9}, {
   3.6397756779583874`*^9, 3.6397756779583874`*^9}, {3.6399550996353626`*^9, 
   3.6399550996353626`*^9}, {3.6399551573816657`*^9, 
   3.6399551624919577`*^9}, {3.639955947034831*^9, 3.639955952339134*^9}, {
   3.639957563819306*^9, 3.6399575645633483`*^9}, {3.639958285104561*^9, 
   3.639958285104561*^9}, {3.6399664763060713`*^9, 3.6399664763060713`*^9}, {
   3.639968851985952*^9, 3.6399688525349836`*^9}, {3.640123133261569*^9, 
   3.6401231401723804`*^9}, {3.640134164163744*^9, 3.640134164163744*^9}, {
   3.6402249295699253`*^9, 3.6402249295699253`*^9}, {3.640228508469226*^9, 
   3.640228508469226*^9}, {3.6402782981492753`*^9, 3.640278300159278*^9}, {
   3.640396862457604*^9, 3.640396862457604*^9}, {3.6403971580235095`*^9, 
   3.6403971580235095`*^9}, {3.640397224439308*^9, 3.640397224439308*^9}, {
   3.6409703031313925`*^9, 3.6409703031313925`*^9}, {3.641005862074479*^9, 
   3.641005862074479*^9}, {3.6423487111141305`*^9, 3.6423487293233624`*^9}, {
   3.6423487699870343`*^9, 3.642348788492667*^9}, 3.6423496566295547`*^9, {
   3.6423519275424075`*^9, 3.6423519275424075`*^9}, {3.6423526012397513`*^9, 
   3.6423526031111555`*^9}, {3.642352788463685*^9, 3.642352798200102*^9}, {
   3.642352957286384*^9, 3.6423529631363945`*^9}, {3.642353100325837*^9, 
   3.642353100325837*^9}, {3.6423546142612085`*^9, 3.6423546142612085`*^9}, {
   3.642361764057276*^9, 3.6423617816733017`*^9}, {3.6423618577014256`*^9, 
   3.6423618577014256`*^9}, {3.642361966555603*^9, 3.64236197078861*^9}, {
   3.642365348173086*^9, 3.642365348783087*^9}, {3.642366377492977*^9, 
   3.642366377492977*^9}, {3.642366442026078*^9, 3.64236644314608*^9}, {
   3.642368451846552*^9, 3.6423684855266027`*^9}, {3.6424450491430945`*^9, 
   3.642445072261148*^9}, {3.64244516171835*^9, 3.642445162158351*^9}, {
   3.642445271866639*^9, 3.642445278275651*^9}, {3.6424490491304245`*^9, 
   3.6424490491304245`*^9}, {3.642449165595723*^9, 3.642449170858733*^9}, 
   3.642449975795814*^9, {3.6989576222025995`*^9, 3.6989576223946104`*^9}, {
   3.698959391483796*^9, 3.698959391483796*^9}, {3.699304146322522*^9, 
   3.699304148459726*^9}, {3.6993043971820364`*^9, 3.6993043971820364`*^9}, {
   3.699304432854077*^9, 3.6993044644195795`*^9}, {3.699304513138465*^9, 
   3.699304513138465*^9}, {3.699304586583394*^9, 3.699304612058239*^9}, {
   3.699304750945283*^9, 3.69930475518849*^9}, {3.6993115536298513`*^9, 
   3.699311554628254*^9}, {3.6993116294742126`*^9, 3.6993116707674847`*^9}, {
   3.6993140708161*^9, 3.699314071190501*^9}, {3.6993143930190663`*^9, 
   3.6993143963574724`*^9}, 3.6993147193560395`*^9, {3.6993149049963655`*^9, 
   3.6993149049963655`*^9}, {3.699315034336193*^9, 3.699315034336193*^9}, {
   3.6993312086436787`*^9, 3.699331208659279*^9}, 3.699331321041876*^9, {
   3.6993319744646235`*^9, 3.699332013183892*^9}, {3.699381651055065*^9, 
   3.6993816518350663`*^9}, {3.6993930187166977`*^9, 
   3.6993930187166977`*^9}, {3.699393609396135*^9, 3.699393609957736*^9}, {
   3.6998172524154325`*^9, 3.6998172854718904`*^9}, {3.699918180095626*^9, 
   3.6999181804606466`*^9}, {3.69998229622225*^9, 3.6999823005804996`*^9}, {
   3.6999823339024057`*^9, 3.6999823339024057`*^9}, {3.7001642008892007`*^9, 
   3.7001642008892007`*^9}, {3.7001680615636845`*^9, 3.700168061844485*^9}, {
   3.700428810836363*^9, 3.7004288113823633`*^9}, {3.7005116739587145`*^9, 
   3.7005116739587145`*^9}, {3.700511732084417*^9, 3.7005117393852296`*^9}, {
   3.700511774157691*^9, 3.700511782300905*^9}, 3.7005906195163374`*^9, {
   3.7008446149958243`*^9, 3.7008446319088526`*^9}, {3.700844695075943*^9, 
   3.700844695075943*^9}, {3.7008447497090263`*^9, 3.700844750109027*^9}, {
   3.7008448734512033`*^9, 3.700844883921218*^9}, {3.7008489637596254`*^9, 
   3.7008489639696255`*^9}, {3.7088989022416735`*^9, 
   3.7088989054228554`*^9}, {3.7104422231074553`*^9, 
   3.7104422231164556`*^9}, {3.710442706995132*^9, 3.710442706995132*^9}, {
   3.7104427545948544`*^9, 3.7104427545948544`*^9}, {3.71044363078997*^9, 
   3.71044363079897*^9}, 3.710447355518012*^9, {3.7104520792547936`*^9, 
   3.710452080785881*^9}, {3.7134813244235506`*^9, 3.7134813244235506`*^9}, {
   3.71348163912155*^9, 3.7134816747055855`*^9}, {3.713482300208362*^9, 
   3.713482300208362*^9}, {3.7134823491911635`*^9, 3.713482362956951*^9}, {
   3.71348254179618*^9, 3.7134825722829237`*^9}, 3.713483104682375*^9, {
   3.713483798773075*^9, 3.713483798773075*^9}, {3.7134894438139524`*^9, 
   3.7134894438139524`*^9}, {3.7134898740385604`*^9, 3.713489875184626*^9}, {
   3.713490831028297*^9, 3.713490831028297*^9}, {3.7134909385984497`*^9, 
   3.7134909385984497`*^9}, {3.7134966449918365`*^9, 
   3.7134966449918365`*^9}, {3.713545384714774*^9, 3.713545384714774*^9}, {
   3.7141989597334547`*^9, 3.714198962522614*^9}, 3.741635144438195*^9, {
   3.741636164804638*^9, 3.7416361651846385`*^9}, {3.7417200241491156`*^9, 
   3.741720024373128*^9}, {3.7419850286674433`*^9, 3.741985028828453*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", 
     SuperscriptBox["x", "2"], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "A"}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", 
    RowBox[{
     SubscriptBox["Q", 
      RowBox[{"q", "-", "1"}]], "[", 
     SuperscriptBox["x", "2"], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"A", " ", "x", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], 
         RowBox[{"p", "+", "1"}]]}], "a"]}]}]}]}], "+", " ", 
  RowBox[{
   FractionBox["1", "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{
         SubscriptBox["Q", 
          RowBox[{"q", "-", "1"}]], "[", 
         SuperscriptBox["x", "2"], "]"}]}], "-", 
       RowBox[{"A", " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "p"}], "+", "3"}], ")"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
   3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
   3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
   3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
   3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
   3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
   3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
   3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
   3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
   3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
   3.6370897114519634`*^9, {3.6371862298426294`*^9, 3.6371862430090523`*^9}, {
   3.6371862984515495`*^9, 3.637186301774356*^9}, {3.6371887477339196`*^9, 
   3.6371887602023416`*^9}, 3.6371888596021166`*^9, 3.6371893376058793`*^9, {
   3.6371894438032665`*^9, 3.637189444801668*^9}, {3.637189670816266*^9, 
   3.6371896795854816`*^9}, 3.6371898591411977`*^9, {3.6371905099860706`*^9, 
   3.6371905139328775`*^9}, {3.6371906102906475`*^9, 3.637190618012661*^9}, {
   3.637190835507845*^9, 3.637190848845868*^9}, {3.6373466546214585`*^9, 
   3.637346654683462*^9}, {3.637346791003259*^9, 3.6373468018618803`*^9}, {
   3.637348466687103*^9, 3.6373485922982874`*^9}, {3.6373486756750565`*^9, 
   3.637348682319436*^9}, {3.6373487373425837`*^9, 3.6373487401527443`*^9}, {
   3.637348790702636*^9, 3.637348820705352*^9}, 3.63734886438385*^9, {
   3.6373490182086477`*^9, 3.6373490215648403`*^9}, {3.6373490900367565`*^9, 
   3.6373490904587803`*^9}, {3.637349137269458*^9, 3.6373491541974263`*^9}, {
   3.637349189703457*^9, 3.6373492006570835`*^9}, {3.637349234136998*^9, 
   3.6373492345890245`*^9}, {3.6373499826398106`*^9, 3.6373500087653046`*^9}, 
   3.637554941363757*^9, {3.6375558480506163`*^9, 3.6375558769092674`*^9}, {
   3.6376018906471624`*^9, 3.637601944909266*^9}, {3.637602620978935*^9, 
   3.637602635720778*^9}, 3.637602695485196*^9, {3.637602807847623*^9, 
   3.6376028080106325`*^9}, {3.6377793840937185`*^9, 3.63777938411572*^9}, {
   3.637779665363806*^9, 3.637779675713398*^9}, {3.638054081963513*^9, 
   3.6380541267025833`*^9}, {3.6380542121157103`*^9, 3.638054215183715*^9}, 
   3.638054290738826*^9, {3.6396984526267314`*^9, 3.6396984732467604`*^9}, {
   3.6396985325468435`*^9, 3.6396985367168493`*^9}, {3.6397065462037907`*^9, 
   3.639706582551854*^9}, {3.639706632861943*^9, 3.6397066444371634`*^9}, {
   3.6397066851688347`*^9, 3.6397066896928425`*^9}, {3.639706818049868*^9, 
   3.639706831094691*^9}, {3.6397071475100465`*^9, 3.6397071826101084`*^9}, {
   3.639707238224206*^9, 3.6397073814636574`*^9}, {3.63970754233114*^9, 
   3.6397075626111755`*^9}, {3.6397078875285463`*^9, 
   3.6397079724082956`*^9}, {3.6397080237323856`*^9, 3.639708039816014*^9}, {
   3.6397080991897182`*^9, 3.6397081061161304`*^9}, 3.639955176291747*^9, {
   3.6399552097496605`*^9, 3.6399552376682577`*^9}, {3.63995531340259*^9, 
   3.6399553153487005`*^9}, {3.6399654599269376`*^9, 3.639965529720929*^9}, {
   3.6399661499154024`*^9, 3.6399661817342224`*^9}, {3.6399662469459524`*^9, 
   3.6399662789637833`*^9}, {3.639966575527746*^9, 3.6399666177551613`*^9}, {
   3.639966699001808*^9, 3.639966703802083*^9}, {3.639968426143595*^9, 
   3.6399684266036215`*^9}, {3.639968756595496*^9, 3.6399688132987394`*^9}, 
   3.6401173864569387`*^9, {3.6401174222929883`*^9, 3.6401174339606557`*^9}, {
   3.6401174961802144`*^9, 3.640117538357627*^9}, 3.640118018271076*^9, {
   3.640118145892376*^9, 3.6401181829524956`*^9}, {3.6401220574836793`*^9, 
   3.640122060354084*^9}, {3.6401221910043135`*^9, 3.6401222978645015`*^9}, 
   3.6401225314593115`*^9, 3.6401230482726192`*^9, 3.640134158344934*^9, 
   3.6401342041622143`*^9, {3.6401342901183653`*^9, 3.640134344858862*^9}, {
   3.640134391066143*^9, 3.640134399068957*^9}, 3.640134519797569*^9, {
   3.640134568750455*^9, 3.6401345698892565`*^9}, {3.6401346163461385`*^9, 
   3.6401347228319254`*^9}, {3.6401374469111557`*^9, 3.640137454084566*^9}, {
   3.6401376819225974`*^9, 3.640137696030404*^9}, {3.640137909063589*^9, 
   3.6401379291567383`*^9}, 3.6401379769964747`*^9, 3.640138058161117*^9, {
   3.640138092792098*^9, 3.6401381268030434`*^9}, {3.6401381731606946`*^9, 
   3.6401381833852797`*^9}, {3.640138229283905*^9, 3.6401382530762653`*^9}, {
   3.6401383106145563`*^9, 3.6401383537100215`*^9}, {3.6401384231399927`*^9, 
   3.6401384433931513`*^9}, {3.640138514544221*^9, 3.6401385154382715`*^9}, {
   3.6401386934494534`*^9, 3.640138715160695*^9}, 3.6401387729089985`*^9, 
   3.6401388357335916`*^9, {3.6401388729317193`*^9, 3.6401388994692373`*^9}, {
   3.6401389764586406`*^9, 3.640138998632909*^9}, {3.6401390493548098`*^9, 
   3.6401390597654057`*^9}, 3.640139095873471*^9, 3.6401391712057796`*^9, {
   3.6401393526831594`*^9, 3.6401394031080437`*^9}, {3.640139453724939*^9, 
   3.6401394910710745`*^9}, 3.6401400398914657`*^9, {3.640140128388527*^9, 
   3.6401401302016306`*^9}, 3.640224999685936*^9, {3.640225039567217*^9, 
   3.640225040088247*^9}, {3.6402251025038166`*^9, 3.6402251047369447`*^9}, {
   3.640225367448971*^9, 3.6402253697561026`*^9}, {3.640225443969348*^9, 
   3.6402254444103727`*^9}, {3.640225501289626*^9, 3.640225503886775*^9}, 
   3.6402255634841833`*^9, {3.6402280333822565`*^9, 3.640228042030672*^9}, {
   3.6402280720511255`*^9, 3.6402280766219335`*^9}, 3.640228203661358*^9, {
   3.6402282713140774`*^9, 3.640228276306086*^9}, 3.640228331133583*^9, 
   3.640228411072255*^9, {3.6402284466423173`*^9, 3.6402284470791183`*^9}, {
   3.640228864212655*^9, 3.640228871669468*^9}, {3.640276247579282*^9, 
   3.640276250903289*^9}, {3.6402763121874037`*^9, 3.640276319279416*^9}, {
   3.6402765397648053`*^9, 3.6402765454298153`*^9}, {3.640276704268242*^9, 
   3.640276728379285*^9}, 3.640276768380356*^9, {3.640276857666518*^9, 
   3.640276859758521*^9}, {3.6402769857767377`*^9, 3.6402769862267385`*^9}, {
   3.640277019202799*^9, 3.640277024628808*^9}, {3.6402770855319214`*^9, 
   3.640277104502957*^9}, 3.640277146051032*^9, {3.6402772108631487`*^9, 
   3.6402772512992225`*^9}, {3.640277304944318*^9, 3.640277394188485*^9}, {
   3.640277450741592*^9, 3.640277482091776*^9}, {3.6402775183318434`*^9, 
   3.640277520567848*^9}, {3.6402775741409464`*^9, 3.640277585850968*^9}, {
   3.6402776162850246`*^9, 3.6402776899471617`*^9}, 3.640277746770274*^9, {
   3.6402779308006105`*^9, 3.6402779383226233`*^9}, {3.6402779790936966`*^9, 
   3.6402780214237747`*^9}, 3.6402780680798597`*^9, {3.640281976685492*^9, 
   3.6402819809875*^9}, {3.640282023298706*^9, 3.6402820937048397`*^9}, {
   3.6402821529389453`*^9, 3.640282153828947*^9}, 3.6402823379792776`*^9, 
   3.6402824362404566`*^9, 3.6402825205076056`*^9, {3.640282689547907*^9, 
   3.64028269775992*^9}, {3.6402827798460665`*^9, 3.6402827875460806`*^9}, 
   3.64039736486734*^9, 3.640397560528531*^9, {3.64039767816926*^9, 
   3.6403977704405375`*^9}, {3.6403978112788734`*^9, 3.6403978123089323`*^9}, 
   3.640397854368338*^9, 3.640397895640699*^9, {3.6403979450655255`*^9, 
   3.64039796717679*^9}, {3.640397999210623*^9, 3.6403980060440135`*^9}, {
   3.640398199215062*^9, 3.6403982041133423`*^9}, 3.640398377107237*^9, 
   3.6403984145493784`*^9, {3.640398453928631*^9, 3.640398555229425*^9}, {
   3.640398591457497*^9, 3.6403986212682023`*^9}, {3.640398687807008*^9, 
   3.6403987170286794`*^9}, {3.640398779416248*^9, 3.640398817865447*^9}, {
   3.6403990409452066`*^9, 3.640399042641303*^9}, {3.640399072955037*^9, 
   3.640399090346032*^9}, {3.640399144407124*^9, 3.640399157537875*^9}, {
   3.640399193102909*^9, 3.640399225234747*^9}, {3.6403993692999873`*^9, 
   3.6403993737312407`*^9}, 3.640399405215041*^9, {3.64039949452415*^9, 
   3.640399495028178*^9}, {3.640399549228278*^9, 3.6403995885625286`*^9}, {
   3.6403996252776284`*^9, 3.6403997166308537`*^9}, 3.640399756483133*^9, {
   3.6403997982495213`*^9, 3.6403998898597617`*^9}, {3.6404003460808563`*^9, 
   3.6404003514761643`*^9}, {3.6404003832629824`*^9, 3.640400406020284*^9}, {
   3.6404005756619873`*^9, 3.640400595082098*^9}, {3.640400811230461*^9, 
   3.640400814379641*^9}, 3.640400984195354*^9, {3.6404041692955313`*^9, 
   3.640404182280274*^9}, {3.6404042157391877`*^9, 3.6404042164282274`*^9}, {
   3.6404043154648914`*^9, 3.640404332871887*^9}, {3.6404043700590143`*^9, 
   3.640404376088359*^9}, {3.640404429444411*^9, 3.640404434268687*^9}, 
   3.640449462800009*^9, {3.6404529466141376`*^9, 3.640452962662162*^9}, {
   3.64045309084336*^9, 3.64045312384241*^9}, {3.64045326090662*^9, 
   3.640453261556621*^9}, {3.6404533074936914`*^9, 3.640453308723694*^9}, {
   3.6404533735777936`*^9, 3.640453402950839*^9}, {3.6404534812319613`*^9, 
   3.640453507918002*^9}, {3.6404535568940763`*^9, 3.640453582986117*^9}, 
   3.6404549270544634`*^9, {3.640968698398822*^9, 3.640968707712038*^9}, {
   3.6409687418780985`*^9, 3.64096881120862*^9}, {3.6409690361844177`*^9, 
   3.6409690423464284`*^9}, {3.640969085597705*^9, 3.6409690897025123`*^9}, 
   3.640969139381*^9, {3.6409691759368644`*^9, 3.640969192071293*^9}, {
   3.640969242969583*^9, 3.640969243577984*^9}, {3.6409693208559203`*^9, 
   3.640969321791922*^9}, 3.640969352093176*^9, {3.6409694272216454`*^9, 
   3.6409694431678734`*^9}, {3.6409695072403884`*^9, 3.64096951953521*^9}, {
   3.6409695545300717`*^9, 3.640969555310073*^9}, {3.640969648781838*^9, 
   3.640969680906295*^9}, 3.640969718493761*^9, 3.640972127383387*^9, {
   3.6409723269436784`*^9, 3.6409723299236827`*^9}, 3.6409724491138563`*^9, {
   3.641003170616477*^9, 3.641003176029686*^9}, {3.6412428184583683`*^9, 
   3.641242825432581*^9}, {3.6412429052563257`*^9, 3.6412429082359314`*^9}, 
   3.641242955521015*^9, 3.641243203674064*^9, {3.642347873946699*^9, 
   3.642347916216173*^9}, {3.6423482509213095`*^9, 3.642348295298788*^9}, {
   3.6423483569650974`*^9, 3.6423484073943863`*^9}, {3.64234857022908*^9, 
   3.6423486260403786`*^9}, {3.6423488808440323`*^9, 
   3.6423489308053207`*^9}, {3.642348976339201*^9, 3.6423490714469175`*^9}, {
   3.6423491610920763`*^9, 3.6423491623712783`*^9}, {3.642349204628153*^9, 
   3.642349207498558*^9}, {3.6423492443850236`*^9, 3.6423492482070303`*^9}, {
   3.64234932159196*^9, 3.642349407440312*^9}, {3.642349442503574*^9, 
   3.6423494812766423`*^9}, {3.642349543208152*^9, 3.6423495459713573`*^9}, {
   3.642349785921383*^9, 3.6423498548915052`*^9}, {3.642352084057685*^9, 
   3.642352084354086*^9}, {3.642352501664625*^9, 3.642352507781836*^9}, {
   3.642352606083963*^9, 3.6423526197057867`*^9}, {3.6423526727840805`*^9, 
   3.6423526732988815`*^9}, {3.6423527071101413`*^9, 
   3.6423527225697684`*^9}, {3.6423528044335136`*^9, 3.6423528459249873`*^9}, 
   3.6423528825638523`*^9, {3.6423531276942854`*^9, 3.642353142686912*^9}, 
   3.6423532085798283`*^9, {3.642354748702047*^9, 3.6423547542712564`*^9}, 
   3.642354905694925*^9, {3.642361802691332*^9, 3.642361803121332*^9}, {
   3.642361839779395*^9, 3.6423618464784093`*^9}, {3.6423619790786247`*^9, 
   3.6423619831016307`*^9}, {3.6423620485267487`*^9, 
   3.6423620489477496`*^9}, {3.642363307705149*^9, 3.642363319786167*^9}, {
   3.642365394098173*^9, 3.6423653949581747`*^9}, {3.6423654265872374`*^9, 
   3.6423654271572385`*^9}, {3.6423655302754183`*^9, 3.64236553182542*^9}, {
   3.642365680393689*^9, 3.6423656961067114`*^9}, {3.642368509743648*^9, 
   3.642368530378681*^9}, 3.6424450372050714`*^9, {3.6424451949974165`*^9, 
   3.6424452104764624`*^9}, {3.6424452990386915`*^9, 
   3.6424453028106966`*^9}, {3.642445371766858*^9, 3.6424454159339437`*^9}, 
   3.6424454459491515`*^9, {3.6424454887212796`*^9, 3.642445632408658*^9}, {
   3.642449036091256*^9, 3.6424490366442575`*^9}, {3.642449503415561*^9, 
   3.642449521052593*^9}, {3.6424499150515165`*^9, 3.642449929904558*^9}, {
   3.6989576225866213`*^9, 3.698957622621623*^9}, {3.6993041162768693`*^9, 
   3.6993041511429305`*^9}, {3.6993042428222075`*^9, 
   3.6993042897818937`*^9}, {3.6993046701527405`*^9, 3.6993046765799522`*^9}, 
   3.6993047234112344`*^9, {3.699304808696584*^9, 3.6993048237506104`*^9}, {
   3.6993049540420394`*^9, 3.6993051319915524`*^9}, {3.699305209944889*^9, 
   3.6993052357785344`*^9}, 3.699305276135805*^9, {3.69930530738266*^9, 
   3.6993053788151855`*^9}, {3.69930999811992*^9, 3.69930999833832*^9}, {
   3.6993100589444265`*^9, 3.6993100835768695`*^9}, {3.6993101216565366`*^9, 
   3.6993102577043753`*^9}, {3.699311698145533*^9, 3.699311727130384*^9}, {
   3.6993120741685934`*^9, 3.699312078895402*^9}, 3.6993121794063787`*^9, {
   3.6993125192373753`*^9, 3.6993125456794214`*^9}, {3.699312577363077*^9, 
   3.69931257886068*^9}, {3.6993138255056696`*^9, 3.6993138353180866`*^9}, 
   3.6993150399366026`*^9, 3.699315173800438*^9, {3.699331208893279*^9, 
   3.6993312089244795`*^9}, 3.6993319478041773`*^9, {3.699332037816335*^9, 
   3.6993320564895678`*^9}, {3.6993328849403477`*^9, 3.6993328964150047`*^9}, 
   3.6993330982593775`*^9, 3.6993911115202885`*^9, {3.699817292538703*^9, 
   3.699817322787156*^9}, 3.699817358058818*^9, {3.6998174218161297`*^9, 
   3.6998174515653825`*^9}, {3.699817482188236*^9, 3.6998175259775133`*^9}, {
   3.700511461642342*^9, 3.700511481641577*^9}, {3.700511861361844*^9, 
   3.70051186480945*^9}, {3.700512125563908*^9, 3.7005121480747476`*^9}, {
   3.7005121990868373`*^9, 3.700512201348841*^9}, {3.700512236433303*^9, 
   3.700512248164523*^9}, {3.700512282609384*^9, 3.7005123039814215`*^9}, 
   3.700512705214126*^9, {3.700844268664181*^9, 3.7008442759071913`*^9}, {
   3.7008443083262377`*^9, 3.7008443370342784`*^9}, {3.7008443933143597`*^9, 
   3.700844408867382*^9}, {3.7008446545108852`*^9, 3.7008446597608924`*^9}, {
   3.7008448866012216`*^9, 3.7008448956342344`*^9}, {3.710442223124456*^9, 
   3.7104422231394567`*^9}, {3.7104422581704607`*^9, 3.710442258195462*^9}, {
   3.7104428216416893`*^9, 3.710442850596346*^9}, {3.7104429024383106`*^9, 
   3.7104429304799147`*^9}, {3.710443630807971*^9, 3.7104436308229723`*^9}, {
   3.710443987220357*^9, 3.7104439986360097`*^9}, {3.7104441209500055`*^9, 
   3.710444120972007*^9}, {3.7104443143460674`*^9, 3.710444317086224*^9}, {
   3.7104449799231358`*^9, 3.710444980721182*^9}, {3.710445092953601*^9, 
   3.7104451756863327`*^9}, {3.7104452116573906`*^9, 
   3.7104452266762495`*^9}, {3.710445267926609*^9, 3.710445287147708*^9}, 
   3.710445589067977*^9, {3.7134811507766185`*^9, 3.713481165951486*^9}, 
   3.713481200249448*^9, {3.713481242263851*^9, 3.7134812908256283`*^9}, {
   3.713481361024644*^9, 3.713481364483842*^9}, {3.713481481316524*^9, 
   3.713481506928989*^9}, {3.7134817032792196`*^9, 3.713481717830052*^9}, {
   3.7134818684076643`*^9, 3.7134818843295755`*^9}, {3.713482432366921*^9, 
   3.713482512578509*^9}, {3.7134825866527452`*^9, 3.7134825933321276`*^9}, {
   3.7134826287501535`*^9, 3.7134826785530024`*^9}, {3.713482711830906*^9, 
   3.7134827452388163`*^9}, {3.7134910493887863`*^9, 3.71349110400191*^9}, {
   3.713491200246415*^9, 3.713491203936626*^9}, {3.7416356318248878`*^9, 
   3.741635644375906*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Pq_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A", "=", 
        RowBox[{"Coeff", "[", 
         RowBox[{"Pq", ",", "x", ",", "0"}], "]"}]}], ",", 
       RowBox[{"Q", "=", 
        RowBox[{"PolynomialQuotient", "[", 
         RowBox[{
          RowBox[{"Pq", "-", 
           RowBox[{"Coeff", "[", 
            RowBox[{"Pq", ",", "x", ",", "0"}], "]"}]}], ",", 
          RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]}]}], "}"}], ",", "\n", 
     "  ", 
     RowBox[{
      RowBox[{"A", "*", "x", "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], "/", "a"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"1", "/", "a"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "2"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "p"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", "*", "Q"}], "-", 
            RowBox[{"A", "*", "b", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", "*", "p"}], "+", "3"}], ")"}]}]}], ")"}]}], ",", 
         "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Pq", ",", 
      RowBox[{"x", "^", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{
      RowBox[{"p", "+", 
       RowBox[{"1", "/", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Expon", "[", 
        RowBox[{"Pq", ",", "x"}], "]"}], "+", 
       RowBox[{"2", "*", "p"}], "+", "1"}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, 
   3.496524881328264*^9, 3.4965249211883197`*^9, {3.4965250087384424`*^9, 
   3.4965250451984935`*^9}, {3.49652529985885*^9, 3.4965253029988546`*^9}, {
   3.517191226559236*^9, 3.517191229336041*^9}, {3.5198287253245926`*^9, 
   3.5198287655726633`*^9}, {3.5198288337447824`*^9, 3.51982895158739*^9}, {
   3.519831399416889*^9, 3.519831408340105*^9}, {3.519831720371853*^9, 
   3.519831743631494*^9}, {3.519970553363369*^9, 3.5199706076134453`*^9}, {
   3.52001562029325*^9, 3.520015644063284*^9}, {3.5200157954834957`*^9, 
   3.520015804253508*^9}, 3.5200175089158945`*^9, {3.5200175825059977`*^9, 
   3.520017586406003*^9}, {3.5200176214360523`*^9, 3.5200176320860667`*^9}, {
   3.520017873466405*^9, 3.5200178749164066`*^9}, {3.5200179932965727`*^9, 
   3.5200180209466114`*^9}, {3.520018270596961*^9, 3.5200182728669643`*^9}, {
   3.5200183074770126`*^9, 3.5200183169870257`*^9}, {3.52001839766914*^9, 
   3.520018401859146*^9}, {3.5200185551913614`*^9, 3.5200185621613717`*^9}, {
   3.52001866099151*^9, 3.5200186692815213`*^9}, {3.520018969641942*^9, 
   3.5200189750119495`*^9}, {3.5200190192520113`*^9, 
   3.5200190761620913`*^9}, {3.520019228292304*^9, 3.5200192308923073`*^9}, {
   3.520019300152405*^9, 3.5200193016024065`*^9}, {3.523219723708351*^9, 
   3.523219726698355*^9}, 3.5239261085859594`*^9, {3.523926213947344*^9, 
   3.5239262149145455`*^9}, {3.529244622338976*^9, 3.529244627196254*^9}, {
   3.532495288250495*^9, 3.5324952903104973`*^9}, 3.5326625336823483`*^9, 
   3.53266257441402*^9, {3.532662615270492*^9, 3.532662615832093*^9}, 
   3.5326626784662027`*^9, 3.5326627750459723`*^9, {3.5328847109295816`*^9, 
   3.5328847116995826`*^9}, {3.5328850708600855`*^9, 
   3.5328850810400996`*^9}, {3.532885138950181*^9, 3.5328851523001995`*^9}, 
   3.532885263460355*^9, {3.534988477453407*^9, 3.5349884864834194`*^9}, {
   3.5349885726135397`*^9, 3.5349885958135724`*^9}, {3.5404382482189875`*^9, 
   3.540438302943884*^9}, 3.5404401364931045`*^9, {3.541809438780042*^9, 
   3.541809440090044*^9}, {3.5421598892202425`*^9, 3.5421598945045443`*^9}, {
   3.5421603175897436`*^9, 3.54216032486016*^9}, 3.544238899969492*^9, {
   3.5442392337885857`*^9, 3.5442392835314307`*^9}, {3.544309775753148*^9, 
   3.5443097785243063`*^9}, 3.55408056723486*^9, {3.6133472684340744`*^9, 
   3.613347344564181*^9}, {3.6133473748642235`*^9, 3.6133473774542265`*^9}, {
   3.6133474841043763`*^9, 3.6133474972043943`*^9}, 3.613347648784607*^9, {
   3.613348658548527*^9, 3.613348660028529*^9}, {3.6133502338307323`*^9, 
   3.6133502391507397`*^9}, {3.6133503040308304`*^9, 
   3.6133503172808495`*^9}, {3.613350370080923*^9, 3.6133503847109437`*^9}, {
   3.6135962198596864`*^9, 3.613596223989692*^9}, 3.613717674609688*^9, 
   3.6137578051621866`*^9, 3.614118378178152*^9, 3.6161900967422*^9, {
   3.6161907791111608`*^9, 3.616190798281188*^9}, 3.634319262787101*^9, {
   3.6343201365020742`*^9, 3.634320140746317*^9}, 3.634320943604238*^9, {
   3.634321136961297*^9, 3.634321137654337*^9}, {3.636240095534666*^9, 
   3.6362401898680615`*^9}, {3.6362404613285885`*^9, 
   3.6362404688260174`*^9}, {3.636240588402857*^9, 3.636240601017578*^9}, {
   3.6362406354775496`*^9, 3.6362406431039853`*^9}, {3.6362406744537783`*^9, 
   3.6362408554571314`*^9}, {3.636240899960677*^9, 3.636240918051711*^9}, {
   3.6362409890997753`*^9, 3.6362410610878925`*^9}, {3.6362414635899143`*^9, 
   3.6362414702662964`*^9}, {3.636242640280217*^9, 3.6362426413632793`*^9}, {
   3.636308814545595*^9, 3.6363088156486588`*^9}, 3.6365180990054727`*^9, 
   3.6365186222153983`*^9, {3.6367693762936068`*^9, 3.6367693859651604`*^9}, {
   3.636843058731393*^9, 3.636843118843831*^9}, {3.6370899949651794`*^9, 
   3.637089996251253*^9}, {3.6371061783318152`*^9, 3.6371062077664986`*^9}, {
   3.6371901772260847`*^9, 3.63719021446535*^9}, 3.637190258617428*^9, {
   3.637190330334754*^9, 3.6371903734552298`*^9}, {3.637190565498968*^9, 
   3.6371905663881702`*^9}, {3.6371906255182743`*^9, 
   3.6371906508879185`*^9}, {3.6371906960985985`*^9, 3.637190752410098*^9}, {
   3.637190871159908*^9, 3.637190877509119*^9}, 3.637269456910778*^9, {
   3.637270155731748*^9, 3.6372701855874557`*^9}, {3.6372994747480774`*^9, 
   3.6372994814254594`*^9}, {3.6373466816010017`*^9, 3.637346681637004*^9}, {
   3.637346806729159*^9, 3.6373468189048553`*^9}, 3.637348246371502*^9, {
   3.6373483392578144`*^9, 3.637348349081376*^9}, {3.637348440282593*^9, 
   3.6373484421296988`*^9}, {3.637350137343659*^9, 3.6373501642151957`*^9}, 
   3.6373501993142033`*^9, {3.6373506593005133`*^9, 3.637350670931178*^9}, {
   3.6373507190449305`*^9, 3.6373507632854605`*^9}, {3.6373507977774334`*^9, 
   3.6373508096441126`*^9}, {3.637350843596054*^9, 3.637350845239148*^9}, {
   3.6373509043735304`*^9, 3.637350904760553*^9}, 3.6373518486005373`*^9, {
   3.637352242918091*^9, 3.6373522955080986`*^9}, {3.6373525461984377`*^9, 
   3.6373525476205187`*^9}, 3.6375385003623857`*^9, 3.63755506834802*^9, 
   3.6375552671953936`*^9, 3.637555548043457*^9, {3.6376019576799965`*^9, 
   3.637601983630481*^9}, {3.637602878390658*^9, 3.637602885101042*^9}, {
   3.6376031249707613`*^9, 3.637603176641717*^9}, 3.6376213425913973`*^9, {
   3.6380337322073503`*^9, 3.6380337324353633`*^9}, {3.6380338880802655`*^9, 
   3.6380338912394466`*^9}, {3.638041763590719*^9, 3.6380418036390095`*^9}, 
   3.638041956113731*^9, {3.638054255053773*^9, 3.638054258433778*^9}, {
   3.639706553769804*^9, 3.639706594095875*^9}, {3.639706647042368*^9, 
   3.6397067033584666`*^9}, 3.6397081869086723`*^9, {3.6397082313687506`*^9, 
   3.639708235705558*^9}, {3.6397083003520713`*^9, 3.639708358758574*^9}, {
   3.639708392485833*^9, 3.6397085013272247`*^9}, {3.6397086308074517`*^9, 
   3.639708637234663*^9}, {3.639775681981617*^9, 3.6397756929582453`*^9}, {
   3.639955627478554*^9, 3.6399556347309685`*^9}, {3.639955668045874*^9, 
   3.639955707235115*^9}, {3.6399558199415617`*^9, 3.639955915945053*^9}, {
   3.639955970603179*^9, 3.6399559948995686`*^9}, {3.6399560415072346`*^9, 
   3.6399560516258135`*^9}, {3.639957568238559*^9, 3.639957569924655*^9}, {
   3.6399582884387517`*^9, 3.6399582920359573`*^9}, {3.639966953658374*^9, 
   3.639966981699978*^9}, {3.639967021761269*^9, 3.6399670347600126`*^9}, {
   3.6399673516611385`*^9, 3.6399673751114798`*^9}, {3.639967736118128*^9, 
   3.6399677939954386`*^9}, {3.63996783318468*^9, 3.639967838215968*^9}, 
   3.639967882674511*^9, {3.639967952986532*^9, 3.639967953378555*^9}, 
   3.6399680119569054`*^9, {3.639968119054031*^9, 3.6399682153225374`*^9}, {
   3.640123069863057*^9, 3.6401231182231426`*^9}, {3.6401233295723133`*^9, 
   3.640123362363571*^9}, {3.6401235358358755`*^9, 3.640123598095585*^9}, {
   3.6401402648383317`*^9, 3.640140419115156*^9}, {3.6401404516620173`*^9, 
   3.6401404940424414`*^9}, 3.640141016668334*^9, {3.640225664027211*^9, 
   3.640225699881678*^9}, {3.6402258193626885`*^9, 3.6402258589907584`*^9}, {
   3.640226934525999*^9, 3.640226938316806*^9}, {3.640228532510868*^9, 
   3.640228607791402*^9}, {3.6402287320520215`*^9, 3.640228732254822*^9}, {
   3.640228890301901*^9, 3.6402288922051044`*^9}, {3.6402782919652624`*^9, 
   3.6402782926092644`*^9}, {3.640278413074609*^9, 3.640278427367634*^9}, 
   3.6402784635707073`*^9, {3.6402786197289815`*^9, 3.6402786427890253`*^9}, {
   3.640278681291093*^9, 3.6402786931191144`*^9}, {3.6402787288591795`*^9, 
   3.6402787312441835`*^9}, 3.640279833304329*^9, {3.6403687535072107`*^9, 
   3.6403687542422523`*^9}, {3.6404000634346895`*^9, 
   3.6404001178408012`*^9}, {3.640400476676326*^9, 3.640400478818448*^9}, 
   3.6404006875243855`*^9, {3.6404010796988163`*^9, 3.6404012180947323`*^9}, {
   3.6404016785160666`*^9, 3.640401678700077*^9}, {3.6404024011664*^9, 
   3.6404024060056767`*^9}, {3.6404028803798094`*^9, 3.6404028888402934`*^9}, 
   3.6404045407817793`*^9, 3.640404585153317*^9, {3.640449595239214*^9, 
   3.640449624268259*^9}, {3.6404510387567196`*^9, 3.6404510814707875`*^9}, {
   3.6404515834265623`*^9, 3.6404516186856165`*^9}, {3.6404536255891843`*^9, 
   3.640453719363329*^9}, {3.640453796937585*^9, 3.6404537977675858`*^9}, {
   3.640456423081909*^9, 3.6404564246019115`*^9}, {3.6409697444210067`*^9, 
   3.640969762894439*^9}, {3.640970094973425*^9, 3.640970149849722*^9}, 
   3.6409701801821756`*^9, {3.6409702780561485`*^9, 3.640970288447767*^9}, 
   3.6409721369154015`*^9, {3.6409723391336956`*^9, 3.640972339363696*^9}, 
   3.6409724609538727`*^9, {3.640972557584153*^9, 3.6409726254522505`*^9}, {
   3.64097269496635*^9, 3.6409727129003754`*^9}, {3.641003176934488*^9, 
   3.6410031789156914`*^9}, {3.641243217217888*^9, 3.641243250329147*^9}, 
   3.641399846377755*^9, 3.6414051271150074`*^9, {3.6423501063938847`*^9, 
   3.6423502098304677`*^9}, {3.642350306165038*^9, 3.6423503878355827`*^9}, {
   3.6423521753608475`*^9, 3.642352175563648*^9}, {3.642354719477195*^9, 
   3.642354758436464*^9}, {3.642354929742567*^9, 3.6423549338297744`*^9}, {
   3.642355386716552*^9, 3.642355418546608*^9}, {3.642355528513404*^9, 
   3.642355567102272*^9}, {3.6423556696320534`*^9, 3.64235570728092*^9}, {
   3.642367161307391*^9, 3.6423671629073935`*^9}, {3.6423684646785717`*^9, 
   3.642368469329578*^9}, {3.642445083295182*^9, 3.6424451048562407`*^9}, {
   3.6424451686253643`*^9, 3.642445169075365*^9}, {3.642445789160053*^9, 
   3.6424458200881424`*^9}, {3.6424458544472313`*^9, 3.642445881073292*^9}, {
   3.6424459632874827`*^9, 3.642445967047488*^9}, {3.642446009517595*^9, 
   3.642446011706602*^9}, 3.6424460983578444`*^9, {3.642446129444928*^9, 
   3.642446158558995*^9}, {3.642446194926078*^9, 3.6424462218701334`*^9}, {
   3.642448549690071*^9, 3.6424485591081047`*^9}, {3.642701754761916*^9, 
   3.6427017708299446`*^9}, 3.64270211396062*^9, {3.6544496978559275`*^9, 
   3.654449698925929*^9}, {3.698957756055255*^9, 3.698957786228981*^9}, {
   3.698957864102435*^9, 3.6989578880398045`*^9}, {3.699145552111268*^9, 
   3.6991455628468823`*^9}, {3.699145642910462*^9, 3.699145673024184*^9}, {
   3.699148341572817*^9, 3.6991483542745433`*^9}, {3.699148437685314*^9, 
   3.6991484384773593`*^9}, {3.699148511677546*^9, 3.6991485205240517`*^9}, {
   3.6991490191625724`*^9, 3.6991490204526463`*^9}, {3.6991490743207273`*^9, 
   3.6991492252053576`*^9}, 3.699149282475633*^9, {3.699149349942492*^9, 
   3.699149350148504*^9}, {3.699149437522501*^9, 3.6991494407616863`*^9}, {
   3.699150163861046*^9, 3.699150164216066*^9}, {3.699287342558217*^9, 
   3.6992873452882214`*^9}, {3.6992876978956413`*^9, 
   3.6992877002512455`*^9}, {3.6993037196617727`*^9, 3.699303721642976*^9}, {
   3.699303762047047*^9, 3.6993037629674487`*^9}, {3.6993104178542566`*^9, 
   3.6993104235014668`*^9}, {3.6993106209978137`*^9, 3.699310692305539*^9}, {
   3.6993107240203943`*^9, 3.6993107678720713`*^9}, {3.6993125892658987`*^9, 
   3.6993126605112233`*^9}, {3.6993132378682375`*^9, 3.69931324509105*^9}, {
   3.699313554767194*^9, 3.699313556514397*^9}, {3.699313848078909*^9, 
   3.699313851526515*^9}, {3.699314077383712*^9, 3.6993140788969145`*^9}, {
   3.6993163533198366`*^9, 3.699316355784641*^9}, {3.699331230124916*^9, 
   3.6993312301561165`*^9}, 3.699331283711011*^9, {3.6993319516261835`*^9, 
   3.699331960955*^9}, {3.699333167492299*^9, 3.6993332697155*^9}, 
   3.699391119118723*^9, 3.699391334372035*^9, {3.69939299739146*^9, 
   3.699392999232263*^9}, {3.699817340305987*^9, 3.699817344829995*^9}, 
   3.6998175744467983`*^9, {3.6998176588741465`*^9, 3.699817663756955*^9}, {
   3.699817713084242*^9, 3.6998177689947395`*^9}, {3.6998178690845156`*^9, 
   3.6998178850901437`*^9}, {3.699982345498069*^9, 3.6999823501533346`*^9}, 
   3.70016427435562*^9, {3.700166132968815*^9, 3.7001661512382493`*^9}, 
   3.7003238108333445`*^9, {3.7005124452864695`*^9, 3.700512452899283*^9}, {
   3.7005125943759317`*^9, 3.7005125983071384`*^9}, {3.7005127321085734`*^9, 
   3.700512773979047*^9}, {3.700514241224024*^9, 3.7005142530644445`*^9}, 
   3.700577890817439*^9, 3.7005779805475717`*^9, {3.700800922025047*^9, 
   3.7008009547659197`*^9}, {3.700801066600316*^9, 3.700801071531598*^9}, {
   3.7008447093719645`*^9, 3.7008447336989985`*^9}, {3.700845047016452*^9, 
   3.7008451409485874`*^9}, {3.700845172391632*^9, 3.7008453849591103`*^9}, {
   3.710442412905311*^9, 3.710442439951858*^9}, 3.7104424994272594`*^9, 
   3.710442794742151*^9, {3.7104432426297684`*^9, 3.7104432430997953`*^9}, {
   3.7104436520631866`*^9, 3.7104436658469753`*^9}, 3.710443734359894*^9, {
   3.7104440012721605`*^9, 3.7104440067504735`*^9}, 3.710444138777025*^9, {
   3.710444168809743*^9, 3.7104441688197436`*^9}, 3.7104442048558044`*^9, {
   3.7104443246026535`*^9, 3.71044432558771*^9}, {3.710444992912879*^9, 
   3.710444994750984*^9}, {3.7104453066148214`*^9, 3.710445326361951*^9}, {
   3.713483811061778*^9, 3.713483914582699*^9}, 3.7134839691608205`*^9, {
   3.713484276756414*^9, 3.7134842805736322`*^9}, {3.7134894491082554`*^9, 
   3.7134894497012897`*^9}, {3.7134898246317344`*^9, 
   3.7134898277239113`*^9}, {3.71348988138498*^9, 3.713489886758288*^9}, {
   3.7134901034546824`*^9, 3.7134901040697174`*^9}, {3.71349083667262*^9, 
   3.7134908463921757`*^9}, {3.7134911142894983`*^9, 
   3.7134911669465103`*^9}, {3.7134965730237207`*^9, 3.713496620664445*^9}, {
   3.713545373969159*^9, 3.713545374699201*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"p", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194145462306576`*^9}, {
   3.519793965762905*^9, 3.5197939659969053`*^9}, {3.519794035370227*^9, 
   3.5197940357134275`*^9}, 3.5197951567001967`*^9, {3.5200148228281317`*^9, 
   3.520014823138132*^9}, {3.5232186961069126`*^9, 3.523218698736916*^9}, {
   3.5232187737370214`*^9, 3.523218783487035*^9}, {3.523219745808382*^9, 
   3.5232198038184633`*^9}, {3.5233166533845415`*^9, 
   3.5233166533845415`*^9}, {3.523316704544613*^9, 3.523316704544613*^9}, {
   3.532495227080409*^9, 3.532495227080409*^9}, {3.532662036025874*^9, 
   3.532662042016285*^9}, {3.532662093621176*^9, 3.5326621130120096`*^9}, {
   3.5326622031177683`*^9, 3.5326622031177683`*^9}, {3.532662949547879*^9, 
   3.532662949547879*^9}, {3.5328845132893047`*^9, 3.5328845171593103`*^9}, {
   3.532884565679378*^9, 3.532884567679381*^9}, {3.5418094010499897`*^9, 
   3.541809405659996*^9}, {3.541809496910124*^9, 3.5418095002301283`*^9}, {
   3.544236946091737*^9, 3.544236946091737*^9}, {3.544237054160918*^9, 
   3.544237069595801*^9}, {3.544237125260985*^9, 3.544237129915251*^9}, {
   3.5442387984306846`*^9, 3.5442387984306846`*^9}, {3.544309789160915*^9, 
   3.544309789160915*^9}, {3.554080548494834*^9, 3.554080548494834*^9}, 
   3.554080609284919*^9, 3.575823577497821*^9, {3.6133471492339077`*^9, 
   3.6133471569239182`*^9}, 3.6133472628140664`*^9, {3.6133474013942604`*^9, 
   3.6133474013942604`*^9}, {3.613350296970821*^9, 3.613350362280912*^9}, {
   3.6133504273410034`*^9, 3.6133504275110035`*^9}, {3.6133562644811764`*^9, 
   3.6133562646511765`*^9}, {3.6133595044157124`*^9, 
   3.6133595046157126`*^9}, {3.613416469823567*^9, 3.613416470023567*^9}, {
   3.613416716986427*^9, 3.6134167172564273`*^9}, {3.613429807255195*^9, 
   3.6134298074951954`*^9}, {3.6137576530234847`*^9, 
   3.6137576530234847`*^9}, {3.613775198930053*^9, 3.6137751992290707`*^9}, {
   3.629996923827963*^9, 3.6299969240463634`*^9}, 3.6340584118619814`*^9, {
   3.6343192944279103`*^9, 3.6343192944279103`*^9}, {3.634320903794961*^9, 
   3.634320903794961*^9}, {3.6362410933067355`*^9, 3.6362411065174913`*^9}, {
   3.6362411395833826`*^9, 3.636241331908383*^9}, {3.636241612837451*^9, 
   3.6362416185337768`*^9}, {3.636241889786291*^9, 3.6362418946025667`*^9}, {
   3.63624193574192*^9, 3.636241967473735*^9}, {3.6362420229979105`*^9, 
   3.6362420277821846`*^9}, {3.636299446557777*^9, 3.6362994498219633`*^9}, {
   3.636310843145624*^9, 3.6363108461407957`*^9}, 3.6365624409318013`*^9, {
   3.6365641169576645`*^9, 3.63656411740069*^9}, 3.6367701857899075`*^9, 
   3.636825937688094*^9, {3.636842610008727*^9, 3.636842635253171*^9}, {
   3.6368427132706337`*^9, 3.636842729802579*^9}, {3.6368432052917757`*^9, 
   3.636843205607794*^9}, {3.6370893748947134`*^9, 3.6370893761147833`*^9}, {
   3.6370894581384745`*^9, 3.6370894587625103`*^9}, 3.637186106618013*^9, {
   3.6371861873169546`*^9, 3.6371862112473965`*^9}, {3.6371901568368483`*^9, 
   3.6371901568368483`*^9}, {3.637204072913598*^9, 3.6372040731475983`*^9}, {
   3.637254322579362*^9, 3.6372543227821617`*^9}, {3.637287158200326*^9, 
   3.637287158420326*^9}, {3.6372994552609625`*^9, 3.6372994620913534`*^9}, 
   3.6373466548674726`*^9, 3.637347073520418*^9, {3.6373479580850124`*^9, 
   3.6373479582960243`*^9}, {3.6373480123731174`*^9, 
   3.6373480388736334`*^9}, {3.637350225514702*^9, 3.637350225514702*^9}, {
   3.6373502673090925`*^9, 3.6373502673090925`*^9}, {3.637354939839346*^9, 
   3.637354939983354*^9}, 3.637360969497223*^9, {3.6373668713287883`*^9, 
   3.6373668715037985`*^9}, {3.6375377222798815`*^9, 3.637537722280882*^9}, {
   3.6375383730611043`*^9, 3.6375383730611043`*^9}, 3.6375433134906807`*^9, 
   3.637543578136818*^9, {3.637554937324526*^9, 3.637554938608599*^9}, {
   3.6375552356275883`*^9, 3.637555237618702*^9}, {3.6375554359360447`*^9, 
   3.637555435937045*^9}, {3.637601881035612*^9, 3.637601882132675*^9}, {
   3.637601914663536*^9, 3.6376019150445576`*^9}, {3.637603050031475*^9, 
   3.637603060038048*^9}, 3.6377793840657167`*^9, {3.637826212225559*^9, 
   3.6378262123655596`*^9}, {3.6380540606343565`*^9, 3.638054071575498*^9}, {
   3.6380542376777477`*^9, 3.638054240147751*^9}, 3.6380542887968225`*^9, {
   3.639706395117525*^9, 3.6397063970363283`*^9}, 3.63970653437897*^9, 
   3.6397065752978415`*^9, {3.639706628415935*^9, 3.6397066307559395`*^9}, {
   3.6397066794280243`*^9, 3.639706680270426*^9}, {3.639706924694855*^9, 
   3.6397069744433427`*^9}, {3.6397070177490187`*^9, 3.63970707540672*^9}, {
   3.639707704462225*^9, 3.6397077150546436`*^9}, {3.6397077479083014`*^9, 
   3.639707754179512*^9}, {3.639707810760812*^9, 3.639707811182012*^9}, {
   3.6397087183080053`*^9, 3.6397087184640055`*^9}, {3.639775373373966*^9, 
   3.6397753738179913`*^9}, {3.6397756457485447`*^9, 3.6397756613344364`*^9}, 
   3.6397757806632614`*^9, {3.639954937320079*^9, 3.639954952066922*^9}, {
   3.6399550010107217`*^9, 3.6399550546327887`*^9}, {3.63995510483366*^9, 
   3.6399551496852255`*^9}, {3.6399559371232643`*^9, 3.639955942307561*^9}, {
   3.63995755812298*^9, 3.639957560440113*^9}, {3.639958269957695*^9, 
   3.6399582800112696`*^9}, {3.639964624297142*^9, 3.639964665219483*^9}, {
   3.6399647013375483`*^9, 3.6399647235718203`*^9}, 3.63996671056947*^9, {
   3.6399684218833513`*^9, 3.6399684224223824`*^9}, {3.6399688475757*^9, 
   3.6399688482947407`*^9}, 3.6399698724713206`*^9, 3.6401172754795914`*^9, 
   3.640117463324335*^9, {3.6401230317521906`*^9, 3.6401230356833973`*^9}, {
   3.6401251919971848`*^9, 3.6401251919971848`*^9}, {3.6401341336032906`*^9, 
   3.640134148220516*^9}, {3.640224878036978*^9, 3.6402249187603073`*^9}, {
   3.6402257392913475`*^9, 3.6402257392913475`*^9}, {3.6402274830072856`*^9, 
   3.6402274830072856`*^9}, {3.640278306321289*^9, 3.640278306321289*^9}, 
   3.6403066640131044`*^9, 3.6403964922324286`*^9, {3.6403967434577975`*^9, 
   3.640396746857992*^9}, {3.6403968101046095`*^9, 3.6403968416434135`*^9}, {
   3.6403970964489875`*^9, 3.6403971126259127`*^9}, {3.640397145368786*^9, 
   3.640397148122943*^9}, {3.640397204481167*^9, 3.640397217912935*^9}, {
   3.6403973957451067`*^9, 3.640397409025866*^9}, {3.640968498781332*^9, 
   3.640968505418021*^9}, {3.6410058565520697`*^9, 3.6410058565520697`*^9}, {
   3.642353998244378*^9, 3.6423540107576*^9}, {3.642354588014962*^9, 
   3.642354593522772*^9}, 3.6423563920818853`*^9, {3.642361503226593*^9, 
   3.6423615361506453`*^9}, {3.6423617274962206`*^9, 3.6423617274962206`*^9}, 
   3.6423622342471027`*^9, 3.6423662570407763`*^9, {3.642366369434965*^9, 
   3.642366370804967*^9}, {3.642366433918065*^9, 3.6423664341280656`*^9}, {
   3.6423683944524593`*^9, 3.64236844035853*^9}, {3.642445020332036*^9, 
   3.6424450338760667`*^9}, {3.642445067697136*^9, 3.642445067697136*^9}, {
   3.6424451582603436`*^9, 3.642445158733345*^9}, 3.6424488948389244`*^9, {
   3.6424489513720703`*^9, 3.642448997772174*^9}, 3.698957622179598*^9, {
   3.6989593914727955`*^9, 3.698959391473796*^9}, {3.6989595065893803`*^9, 
   3.6989595073354225`*^9}, {3.6993043023696136`*^9, 3.699304307702918*^9}, {
   3.6993043721446047`*^9, 3.699304378515969*^9}, {3.6993044759011993`*^9, 
   3.6993044785532045`*^9}, {3.699314064248489*^9, 3.6993140645604897`*^9}, {
   3.6993143856246533`*^9, 3.6993143878866577`*^9}, 3.6993312086124783`*^9, {
   3.6993318922836795`*^9, 3.6993319454173727`*^9}, {3.6993804022164555`*^9, 
   3.6993804027724876`*^9}, {3.699392756369016*^9, 3.6993927968503313`*^9}, 
   3.699810304811702*^9, {3.699830236531026*^9, 3.69983026740348*^9}, {
   3.6998303029403424`*^9, 3.6998303079635515`*^9}, {3.6999817957946806`*^9, 
   3.6999817961437*^9}, {3.6999819455310555`*^9, 3.6999819455310555`*^9}, {
   3.7004275764590254`*^9, 3.700427577051826*^9}, 3.7104381258481054`*^9, {
   3.7104381629112253`*^9, 3.7104381629112253`*^9}, 3.710438264556039*^9, {
   3.710438968323292*^9, 3.7104389685263033`*^9}, {3.7141989693930073`*^9, 
   3.7141989696110196`*^9}, {3.7416361188445735`*^9, 3.741636119974575*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and quadratic recurrence 2a", \
"Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.496625755369381*^9}, {3.4966258193762937`*^9, 
   3.4966258405299306`*^9}, {3.6399550765710435`*^9, 3.639955082269369*^9}, {
   3.6401374201056223`*^9, 3.640137424315863*^9}, {3.6401375942005796`*^9, 
   3.640137598524827*^9}, {3.642353555003594*^9, 3.642353582227642*^9}, 
   3.642354404964499*^9, {3.6423546712309093`*^9, 3.642354672010911*^9}, 
   3.6424492113078194`*^9, 3.699304225143196*^9, {3.699820660865361*^9, 
   3.6998206697261767`*^9}}],

Cell[TextData[{
 "Rule 1.1.2.x.4.2: If  ",
 Cell[BoxData[
  RowBox[{"p", "<", 
   RowBox[{"-", "1"}]}]]],
 ", \n    let ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["Q", 
     RowBox[{"q", "-", "2"}]], "[", "x", "]"}], "\[Rule]", 
   RowBox[{"PolynomialQuotient", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", "q"], "[", "x", "]"}], ",", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.6993116049197693`*^9, 3.699311618226593*^9}}],
 "and ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"f", "+", 
    RowBox[{"g", " ", "x"}]}], "\[Rule]", 
   RowBox[{"PolynomialRemainder", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["P", "q"], "[", "x", "]"}], ",", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}]}]],
  CellChangeTimes->{{3.699810352500985*^9, 3.699810354450989*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522723415243*^9, 
   3.496522765635302*^9}, {3.496523221825941*^9, 3.4965232354159594`*^9}, {
   3.496523793466741*^9, 3.4965238105867653`*^9}, {3.496523849186819*^9, 
   3.496523869436847*^9}, {3.496524240927367*^9, 3.4965242872774324`*^9}, {
   3.496524601367872*^9, 3.496524684427988*^9}, {3.496524967108384*^9, 
   3.4965249730483923`*^9}, {3.49652505695851*^9, 3.4965251102785845`*^9}, {
   3.496525144828633*^9, 3.4965251931087008`*^9}, {3.5193219699389534`*^9, 
   3.5193219718421564`*^9}, {3.5193301896695423`*^9, 3.519330190949544*^9}, {
   3.519970584333412*^9, 3.519970590433421*^9}, {3.519970630913478*^9, 
   3.519970691883563*^9}, {3.523219813418477*^9, 3.523219813418477*^9}, {
   3.532495274800476*^9, 3.532495274800476*^9}, {3.532662806838828*^9, 
   3.532662806838828*^9}, {3.532662956692692*^9, 3.532662956692692*^9}, {
   3.5328847513796377`*^9, 3.5328847523296394`*^9}, {3.5328848329697523`*^9, 
   3.5328848354097557`*^9}, {3.541809412880006*^9, 3.5418094154200096`*^9}, {
   3.541809509150141*^9, 3.541809509150141*^9}, {3.5442389449590654`*^9, 
   3.5442389449590654`*^9}, {3.544239226330159*^9, 3.544239226330159*^9}, {
   3.544309786189745*^9, 3.544309786189745*^9}, {3.5540805633148546`*^9, 
   3.5540805633148546`*^9}, {3.613347171023938*^9, 3.613347171023938*^9}, {
   3.6133475684744945`*^9, 3.6133475684744945`*^9}, {3.613350407440975*^9, 
   3.613350407440975*^9}, {3.613757653545515*^9, 3.613757653545515*^9}, {
   3.634319294439911*^9, 3.634319294439911*^9}, {3.634320903808962*^9, 
   3.634320903808962*^9}, {3.6362396305010676`*^9, 3.636239772998218*^9}, 
   3.636239841428132*^9, {3.6362398796983213`*^9, 3.636239880469365*^9}, {
   3.63623991569838*^9, 3.6362399204736533`*^9}, {3.6362399780699472`*^9, 
   3.6362400389424295`*^9}, {3.636240295738117*^9, 3.636240307909813*^9}, 
   3.6362411836039*^9, {3.6362416844585476`*^9, 3.636241786067359*^9}, {
   3.6362418282937746`*^9, 3.6362418599195833`*^9}, {3.6362419917751245`*^9, 
   3.6362420063029556`*^9}, {3.6368428036528025`*^9, 3.636842806504966*^9}, {
   3.636842840121889*^9, 3.6368429816609845`*^9}, {3.6368430243594265`*^9, 
   3.636843045517637*^9}, {3.637089377538865*^9, 3.637089378066895*^9}, {
   3.6370894593945465`*^9, 3.6370895079703255`*^9}, {3.637089669995592*^9, 
   3.6370896754029016`*^9}, {3.637186189547758*^9, 3.637186189547758*^9}, {
   3.637190101409425*^9, 3.6371901282922726`*^9}, {3.637299468806738*^9, 
   3.637299468806738*^9}, {3.6373467878220773`*^9, 3.6373467888541365`*^9}, {
   3.637350300777007*^9, 3.637350300777007*^9}, {3.6375377233439426`*^9, 
   3.6375377233439426`*^9}, {3.6375383730701046`*^9, 
   3.6375383730701046`*^9}, {3.6375549401116853`*^9, 
   3.6375549401116853`*^9}, {3.637555243557041*^9, 3.637555246842229*^9}, {
   3.6375554367930937`*^9, 3.6375554367930937`*^9}, {3.637601884465809*^9, 
   3.6376018856878786`*^9}, {3.6376030521165943`*^9, 3.637603062297177*^9}, {
   3.638054209525707*^9, 3.6380542097757072`*^9}, {3.6380542499357653`*^9, 
   3.6380542499357653`*^9}, {3.6397066314267406`*^9, 
   3.6397066320819416`*^9}, {3.6397066844824333`*^9, 
   3.6397066844824333`*^9}, {3.6397071372140284`*^9, 
   3.6397071372140284`*^9}, {3.639707870259316*^9, 3.639707870259316*^9}, {
   3.6397756779583874`*^9, 3.6397756779583874`*^9}, {3.6399550996353626`*^9, 
   3.6399550996353626`*^9}, {3.6399551573816657`*^9, 
   3.6399551624919577`*^9}, {3.639955947034831*^9, 3.639955952339134*^9}, {
   3.639957563819306*^9, 3.6399575645633483`*^9}, {3.639958285104561*^9, 
   3.639958285104561*^9}, {3.6399664763060713`*^9, 3.6399664763060713`*^9}, {
   3.639968851985952*^9, 3.6399688525349836`*^9}, {3.640123133261569*^9, 
   3.6401231401723804`*^9}, {3.640134164163744*^9, 3.640134164163744*^9}, {
   3.6402249295699253`*^9, 3.6402249295699253`*^9}, {3.640228508469226*^9, 
   3.640228508469226*^9}, {3.6402782981492753`*^9, 3.640278300159278*^9}, {
   3.640396862457604*^9, 3.640396862457604*^9}, {3.6403971580235095`*^9, 
   3.6403971580235095`*^9}, {3.640397224439308*^9, 3.640397224439308*^9}, {
   3.6409703031313925`*^9, 3.6409703031313925`*^9}, {3.641005862074479*^9, 
   3.641005862074479*^9}, {3.6423487111141305`*^9, 3.6423487293233624`*^9}, {
   3.6423487699870343`*^9, 3.642348788492667*^9}, 3.6423496566295547`*^9, {
   3.6423519275424075`*^9, 3.6423519275424075`*^9}, {3.6423526012397513`*^9, 
   3.6423526031111555`*^9}, {3.642352788463685*^9, 3.642352798200102*^9}, {
   3.642352957286384*^9, 3.6423529631363945`*^9}, {3.642353100325837*^9, 
   3.642353100325837*^9}, {3.6423546142612085`*^9, 3.6423546142612085`*^9}, {
   3.642361764057276*^9, 3.6423617816733017`*^9}, {3.6423618577014256`*^9, 
   3.6423618577014256`*^9}, {3.642361966555603*^9, 3.64236197078861*^9}, {
   3.642365348173086*^9, 3.642365348783087*^9}, {3.642366377492977*^9, 
   3.642366377492977*^9}, {3.642366442026078*^9, 3.64236644314608*^9}, {
   3.642368451846552*^9, 3.6423684855266027`*^9}, {3.6424450491430945`*^9, 
   3.642445072261148*^9}, {3.64244516171835*^9, 3.642445162158351*^9}, {
   3.642445271866639*^9, 3.642445278275651*^9}, {3.6424490491304245`*^9, 
   3.6424490491304245`*^9}, {3.642449165595723*^9, 3.642449170858733*^9}, 
   3.642449975795814*^9, {3.6989576222025995`*^9, 3.6989576223946104`*^9}, {
   3.698959391483796*^9, 3.698959391483796*^9}, {3.699304146322522*^9, 
   3.699304148459726*^9}, {3.6993043971820364`*^9, 3.6993043971820364`*^9}, {
   3.699304432854077*^9, 3.6993044644195795`*^9}, {3.699304513138465*^9, 
   3.699304513138465*^9}, {3.699304586583394*^9, 3.699304612058239*^9}, {
   3.699304750945283*^9, 3.69930475518849*^9}, {3.6993115536298513`*^9, 
   3.699311554628254*^9}, {3.6993116294742126`*^9, 3.6993116707674847`*^9}, {
   3.6993140708161*^9, 3.699314071190501*^9}, {3.6993143930190663`*^9, 
   3.6993143963574724`*^9}, 3.6993147193560395`*^9, {3.6993149049963655`*^9, 
   3.6993149049963655`*^9}, {3.699315034336193*^9, 3.699315034336193*^9}, {
   3.6993312086436787`*^9, 3.699331208659279*^9}, 3.699331321041876*^9, {
   3.6993319744646235`*^9, 3.699332013183892*^9}, {3.699381651055065*^9, 
   3.6993816518350663`*^9}, {3.699392815909422*^9, 3.699392815909422*^9}, {
   3.699393600004918*^9, 3.6993936005353193`*^9}, {3.699810317650524*^9, 
   3.699810326090139*^9}, {3.6998103600513988`*^9, 3.6998103905962524`*^9}, {
   3.6998114325829315`*^9, 3.6998114325829315`*^9}, {3.6998302827695065`*^9, 
   3.699830291739523*^9}, {3.6998303225339766`*^9, 3.699830337556803*^9}, {
   3.699981799883914*^9, 3.6999818003439407`*^9}, {3.699981951803266*^9, 
   3.699981951803266*^9}, {3.700427617802098*^9, 3.7004276181764984`*^9}, {
   3.7007727277254944`*^9, 3.7007727277254944`*^9}, {3.710438129035288*^9, 
   3.710438129667324*^9}, {3.710438170191642*^9, 3.7104381711896987`*^9}, {
   3.7104382645660396`*^9, 3.71043826457504*^9}, 3.7104389967389174`*^9, {
   3.710439060290552*^9, 3.7104390606425724`*^9}, {3.7141989733172317`*^9, 
   3.7141989735552454`*^9}, {3.7416361698446445`*^9, 3.741636171524647*^9}, {
   3.741720028547367*^9, 3.7417200288113823`*^9}, {3.7419850213560257`*^9, 
   3.741985021626041*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Integral]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"f", "+", 
          RowBox[{"g", " ", "x"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
        RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "+", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["Q", 
      RowBox[{"q", "-", "2"}]], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], 
     RowBox[{"p", "+", "1"}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "g"}], "-", 
          RowBox[{"b", " ", "f", " ", "x"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], 
         RowBox[{"p", "+", "1"}]]}], 
       RowBox[{"2", " ", "a", " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], 
      RowBox[{"p", "+", "1"}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a", " ", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}], " ", 
        RowBox[{
         SubscriptBox["Q", 
          RowBox[{"q", "-", "2"}]], "[", "x", "]"}]}], "+", 
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "p"}], "+", "3"}], ")"}]}]}], ")"}], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
   3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
   3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
   3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
   3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
   3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
   3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
   3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
   3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
   3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
   3.6370897114519634`*^9, {3.6371862298426294`*^9, 3.6371862430090523`*^9}, {
   3.6371862984515495`*^9, 3.637186301774356*^9}, {3.6371887477339196`*^9, 
   3.6371887602023416`*^9}, 3.6371888596021166`*^9, 3.6371893376058793`*^9, {
   3.6371894438032665`*^9, 3.637189444801668*^9}, {3.637189670816266*^9, 
   3.6371896795854816`*^9}, 3.6371898591411977`*^9, {3.6371905099860706`*^9, 
   3.6371905139328775`*^9}, {3.6371906102906475`*^9, 3.637190618012661*^9}, {
   3.637190835507845*^9, 3.637190848845868*^9}, {3.6373466546214585`*^9, 
   3.637346654683462*^9}, {3.637346791003259*^9, 3.6373468018618803`*^9}, {
   3.637348466687103*^9, 3.6373485922982874`*^9}, {3.6373486756750565`*^9, 
   3.637348682319436*^9}, {3.6373487373425837`*^9, 3.6373487401527443`*^9}, {
   3.637348790702636*^9, 3.637348820705352*^9}, 3.63734886438385*^9, {
   3.6373490182086477`*^9, 3.6373490215648403`*^9}, {3.6373490900367565`*^9, 
   3.6373490904587803`*^9}, {3.637349137269458*^9, 3.6373491541974263`*^9}, {
   3.637349189703457*^9, 3.6373492006570835`*^9}, {3.637349234136998*^9, 
   3.6373492345890245`*^9}, {3.6373499826398106`*^9, 3.6373500087653046`*^9}, 
   3.637554941363757*^9, {3.6375558480506163`*^9, 3.6375558769092674`*^9}, {
   3.6376018906471624`*^9, 3.637601944909266*^9}, {3.637602620978935*^9, 
   3.637602635720778*^9}, 3.637602695485196*^9, {3.637602807847623*^9, 
   3.6376028080106325`*^9}, {3.6377793840937185`*^9, 3.63777938411572*^9}, {
   3.637779665363806*^9, 3.637779675713398*^9}, {3.638054081963513*^9, 
   3.6380541267025833`*^9}, {3.6380542121157103`*^9, 3.638054215183715*^9}, 
   3.638054290738826*^9, {3.6396984526267314`*^9, 3.6396984732467604`*^9}, {
   3.6396985325468435`*^9, 3.6396985367168493`*^9}, {3.6397065462037907`*^9, 
   3.639706582551854*^9}, {3.639706632861943*^9, 3.6397066444371634`*^9}, {
   3.6397066851688347`*^9, 3.6397066896928425`*^9}, {3.639706818049868*^9, 
   3.639706831094691*^9}, {3.6397071475100465`*^9, 3.6397071826101084`*^9}, {
   3.639707238224206*^9, 3.6397073814636574`*^9}, {3.63970754233114*^9, 
   3.6397075626111755`*^9}, {3.6397078875285463`*^9, 
   3.6397079724082956`*^9}, {3.6397080237323856`*^9, 3.639708039816014*^9}, {
   3.6397080991897182`*^9, 3.6397081061161304`*^9}, 3.639955176291747*^9, {
   3.6399552097496605`*^9, 3.6399552376682577`*^9}, {3.63995531340259*^9, 
   3.6399553153487005`*^9}, {3.6399654599269376`*^9, 3.639965529720929*^9}, {
   3.6399661499154024`*^9, 3.6399661817342224`*^9}, {3.6399662469459524`*^9, 
   3.6399662789637833`*^9}, {3.639966575527746*^9, 3.6399666177551613`*^9}, {
   3.639966699001808*^9, 3.639966703802083*^9}, {3.639968426143595*^9, 
   3.6399684266036215`*^9}, {3.639968756595496*^9, 3.6399688132987394`*^9}, 
   3.6401173864569387`*^9, {3.6401174222929883`*^9, 3.6401174339606557`*^9}, {
   3.6401174961802144`*^9, 3.640117538357627*^9}, 3.640118018271076*^9, {
   3.640118145892376*^9, 3.6401181829524956`*^9}, {3.6401220574836793`*^9, 
   3.640122060354084*^9}, {3.6401221910043135`*^9, 3.6401222978645015`*^9}, 
   3.6401225314593115`*^9, 3.6401230482726192`*^9, 3.640134158344934*^9, 
   3.6401342041622143`*^9, {3.6401342901183653`*^9, 3.640134344858862*^9}, {
   3.640134391066143*^9, 3.640134399068957*^9}, 3.640134519797569*^9, {
   3.640134568750455*^9, 3.6401345698892565`*^9}, {3.6401346163461385`*^9, 
   3.6401347228319254`*^9}, {3.6401374469111557`*^9, 3.640137454084566*^9}, {
   3.6401376819225974`*^9, 3.640137696030404*^9}, {3.640137909063589*^9, 
   3.6401379291567383`*^9}, 3.6401379769964747`*^9, 3.640138058161117*^9, {
   3.640138092792098*^9, 3.6401381268030434`*^9}, {3.6401381731606946`*^9, 
   3.6401381833852797`*^9}, {3.640138229283905*^9, 3.6401382530762653`*^9}, {
   3.6401383106145563`*^9, 3.6401383537100215`*^9}, {3.6401384231399927`*^9, 
   3.6401384433931513`*^9}, {3.640138514544221*^9, 3.6401385154382715`*^9}, {
   3.6401386934494534`*^9, 3.640138715160695*^9}, 3.6401387729089985`*^9, 
   3.6401388357335916`*^9, {3.6401388729317193`*^9, 3.6401388994692373`*^9}, {
   3.6401389764586406`*^9, 3.640138998632909*^9}, {3.6401390493548098`*^9, 
   3.6401390597654057`*^9}, 3.640139095873471*^9, 3.6401391712057796`*^9, {
   3.6401393526831594`*^9, 3.6401394031080437`*^9}, {3.640139453724939*^9, 
   3.6401394910710745`*^9}, 3.6401400398914657`*^9, {3.640140128388527*^9, 
   3.6401401302016306`*^9}, 3.640224999685936*^9, {3.640225039567217*^9, 
   3.640225040088247*^9}, {3.6402251025038166`*^9, 3.6402251047369447`*^9}, {
   3.640225367448971*^9, 3.6402253697561026`*^9}, {3.640225443969348*^9, 
   3.6402254444103727`*^9}, {3.640225501289626*^9, 3.640225503886775*^9}, 
   3.6402255634841833`*^9, {3.6402280333822565`*^9, 3.640228042030672*^9}, {
   3.6402280720511255`*^9, 3.6402280766219335`*^9}, 3.640228203661358*^9, {
   3.6402282713140774`*^9, 3.640228276306086*^9}, 3.640228331133583*^9, 
   3.640228411072255*^9, {3.6402284466423173`*^9, 3.6402284470791183`*^9}, {
   3.640228864212655*^9, 3.640228871669468*^9}, {3.640276247579282*^9, 
   3.640276250903289*^9}, {3.6402763121874037`*^9, 3.640276319279416*^9}, {
   3.6402765397648053`*^9, 3.6402765454298153`*^9}, {3.640276704268242*^9, 
   3.640276728379285*^9}, 3.640276768380356*^9, {3.640276857666518*^9, 
   3.640276859758521*^9}, {3.6402769857767377`*^9, 3.6402769862267385`*^9}, {
   3.640277019202799*^9, 3.640277024628808*^9}, {3.6402770855319214`*^9, 
   3.640277104502957*^9}, 3.640277146051032*^9, {3.6402772108631487`*^9, 
   3.6402772512992225`*^9}, {3.640277304944318*^9, 3.640277394188485*^9}, {
   3.640277450741592*^9, 3.640277482091776*^9}, {3.6402775183318434`*^9, 
   3.640277520567848*^9}, {3.6402775741409464`*^9, 3.640277585850968*^9}, {
   3.6402776162850246`*^9, 3.6402776899471617`*^9}, 3.640277746770274*^9, {
   3.6402779308006105`*^9, 3.6402779383226233`*^9}, {3.6402779790936966`*^9, 
   3.6402780214237747`*^9}, 3.6402780680798597`*^9, {3.640281976685492*^9, 
   3.6402819809875*^9}, {3.640282023298706*^9, 3.6402820937048397`*^9}, {
   3.6402821529389453`*^9, 3.640282153828947*^9}, 3.6402823379792776`*^9, 
   3.6402824362404566`*^9, 3.6402825205076056`*^9, {3.640282689547907*^9, 
   3.64028269775992*^9}, {3.6402827798460665`*^9, 3.6402827875460806`*^9}, 
   3.64039736486734*^9, 3.640397560528531*^9, {3.64039767816926*^9, 
   3.6403977704405375`*^9}, {3.6403978112788734`*^9, 3.6403978123089323`*^9}, 
   3.640397854368338*^9, 3.640397895640699*^9, {3.6403979450655255`*^9, 
   3.64039796717679*^9}, {3.640397999210623*^9, 3.6403980060440135`*^9}, {
   3.640398199215062*^9, 3.6403982041133423`*^9}, 3.640398377107237*^9, 
   3.6403984145493784`*^9, {3.640398453928631*^9, 3.640398555229425*^9}, {
   3.640398591457497*^9, 3.6403986212682023`*^9}, {3.640398687807008*^9, 
   3.6403987170286794`*^9}, {3.640398779416248*^9, 3.640398817865447*^9}, {
   3.6403990409452066`*^9, 3.640399042641303*^9}, {3.640399072955037*^9, 
   3.640399090346032*^9}, {3.640399144407124*^9, 3.640399157537875*^9}, {
   3.640399193102909*^9, 3.640399225234747*^9}, {3.6403993692999873`*^9, 
   3.6403993737312407`*^9}, 3.640399405215041*^9, {3.64039949452415*^9, 
   3.640399495028178*^9}, {3.640399549228278*^9, 3.6403995885625286`*^9}, {
   3.6403996252776284`*^9, 3.6403997166308537`*^9}, 3.640399756483133*^9, {
   3.6403997982495213`*^9, 3.6403998898597617`*^9}, {3.6404003460808563`*^9, 
   3.6404003514761643`*^9}, {3.6404003832629824`*^9, 3.640400406020284*^9}, {
   3.6404005756619873`*^9, 3.640400595082098*^9}, {3.640400811230461*^9, 
   3.640400814379641*^9}, 3.640400984195354*^9, {3.6404041692955313`*^9, 
   3.640404182280274*^9}, {3.6404042157391877`*^9, 3.6404042164282274`*^9}, {
   3.6404043154648914`*^9, 3.640404332871887*^9}, {3.6404043700590143`*^9, 
   3.640404376088359*^9}, {3.640404429444411*^9, 3.640404434268687*^9}, 
   3.640449462800009*^9, {3.6404529466141376`*^9, 3.640452962662162*^9}, {
   3.64045309084336*^9, 3.64045312384241*^9}, {3.64045326090662*^9, 
   3.640453261556621*^9}, {3.6404533074936914`*^9, 3.640453308723694*^9}, {
   3.6404533735777936`*^9, 3.640453402950839*^9}, {3.6404534812319613`*^9, 
   3.640453507918002*^9}, {3.6404535568940763`*^9, 3.640453582986117*^9}, 
   3.6404549270544634`*^9, {3.640968698398822*^9, 3.640968707712038*^9}, {
   3.6409687418780985`*^9, 3.64096881120862*^9}, {3.6409690361844177`*^9, 
   3.6409690423464284`*^9}, {3.640969085597705*^9, 3.6409690897025123`*^9}, 
   3.640969139381*^9, {3.6409691759368644`*^9, 3.640969192071293*^9}, {
   3.640969242969583*^9, 3.640969243577984*^9}, {3.6409693208559203`*^9, 
   3.640969321791922*^9}, 3.640969352093176*^9, {3.6409694272216454`*^9, 
   3.6409694431678734`*^9}, {3.6409695072403884`*^9, 3.64096951953521*^9}, {
   3.6409695545300717`*^9, 3.640969555310073*^9}, {3.640969648781838*^9, 
   3.640969680906295*^9}, 3.640969718493761*^9, 3.640972127383387*^9, {
   3.6409723269436784`*^9, 3.6409723299236827`*^9}, 3.6409724491138563`*^9, {
   3.641003170616477*^9, 3.641003176029686*^9}, {3.6412428184583683`*^9, 
   3.641242825432581*^9}, {3.6412429052563257`*^9, 3.6412429082359314`*^9}, 
   3.641242955521015*^9, 3.641243203674064*^9, {3.642347873946699*^9, 
   3.642347916216173*^9}, {3.6423482509213095`*^9, 3.642348295298788*^9}, {
   3.6423483569650974`*^9, 3.6423484073943863`*^9}, {3.64234857022908*^9, 
   3.6423486260403786`*^9}, {3.6423488808440323`*^9, 
   3.6423489308053207`*^9}, {3.642348976339201*^9, 3.6423490714469175`*^9}, {
   3.6423491610920763`*^9, 3.6423491623712783`*^9}, {3.642349204628153*^9, 
   3.642349207498558*^9}, {3.6423492443850236`*^9, 3.6423492482070303`*^9}, {
   3.64234932159196*^9, 3.642349407440312*^9}, {3.642349442503574*^9, 
   3.6423494812766423`*^9}, {3.642349543208152*^9, 3.6423495459713573`*^9}, {
   3.642349785921383*^9, 3.6423498548915052`*^9}, {3.642352084057685*^9, 
   3.642352084354086*^9}, {3.642352501664625*^9, 3.642352507781836*^9}, {
   3.642352606083963*^9, 3.6423526197057867`*^9}, {3.6423526727840805`*^9, 
   3.6423526732988815`*^9}, {3.6423527071101413`*^9, 
   3.6423527225697684`*^9}, {3.6423528044335136`*^9, 3.6423528459249873`*^9}, 
   3.6423528825638523`*^9, {3.6423531276942854`*^9, 3.642353142686912*^9}, 
   3.6423532085798283`*^9, {3.642354748702047*^9, 3.6423547542712564`*^9}, 
   3.642354905694925*^9, {3.642361802691332*^9, 3.642361803121332*^9}, {
   3.642361839779395*^9, 3.6423618464784093`*^9}, {3.6423619790786247`*^9, 
   3.6423619831016307`*^9}, {3.6423620485267487`*^9, 
   3.6423620489477496`*^9}, {3.642363307705149*^9, 3.642363319786167*^9}, {
   3.642365394098173*^9, 3.6423653949581747`*^9}, {3.6423654265872374`*^9, 
   3.6423654271572385`*^9}, {3.6423655302754183`*^9, 3.64236553182542*^9}, {
   3.642365680393689*^9, 3.6423656961067114`*^9}, {3.642368509743648*^9, 
   3.642368530378681*^9}, 3.6424450372050714`*^9, {3.6424451949974165`*^9, 
   3.6424452104764624`*^9}, {3.6424452990386915`*^9, 
   3.6424453028106966`*^9}, {3.642445371766858*^9, 3.6424454159339437`*^9}, 
   3.6424454459491515`*^9, {3.6424454887212796`*^9, 3.642445632408658*^9}, {
   3.642449036091256*^9, 3.6424490366442575`*^9}, {3.642449503415561*^9, 
   3.642449521052593*^9}, {3.6424499150515165`*^9, 3.642449929904558*^9}, {
   3.6989576225866213`*^9, 3.698957622621623*^9}, {3.6993041162768693`*^9, 
   3.6993041511429305`*^9}, {3.6993042428222075`*^9, 
   3.6993042897818937`*^9}, {3.6993046701527405`*^9, 3.6993046765799522`*^9}, 
   3.6993047234112344`*^9, {3.699304808696584*^9, 3.6993048237506104`*^9}, {
   3.6993049540420394`*^9, 3.6993051319915524`*^9}, {3.699305209944889*^9, 
   3.6993052357785344`*^9}, 3.699305276135805*^9, {3.69930530738266*^9, 
   3.6993053788151855`*^9}, {3.69930999811992*^9, 3.69930999833832*^9}, {
   3.6993100589444265`*^9, 3.6993100835768695`*^9}, {3.6993101216565366`*^9, 
   3.6993102577043753`*^9}, {3.699311698145533*^9, 3.699311727130384*^9}, {
   3.6993120741685934`*^9, 3.699312078895402*^9}, 3.6993121794063787`*^9, {
   3.6993125192373753`*^9, 3.6993125456794214`*^9}, {3.699312577363077*^9, 
   3.69931257886068*^9}, {3.6993138255056696`*^9, 3.6993138353180866`*^9}, 
   3.6993150399366026`*^9, 3.699315173800438*^9, {3.699331208893279*^9, 
   3.6993312089244795`*^9}, 3.6993319478041773`*^9, {3.699332037816335*^9, 
   3.6993320564895678`*^9}, {3.6993328849403477`*^9, 3.6993328964150047`*^9}, 
   3.6993330982593775`*^9, 3.6993911115202885`*^9, {3.699392865727229*^9, 
   3.6993929162245173`*^9}, {3.6998104179743004`*^9, 
   3.6998104679255877`*^9}, {3.699811410613675*^9, 3.699811427260627*^9}, 
   3.6998114739672985`*^9, 3.6998120861492786`*^9, {3.6998121190779643`*^9, 
   3.6998121475636144`*^9}, {3.6998122142849317`*^9, 
   3.6998122150493326`*^9}, {3.699812266685424*^9, 3.699812278260644*^9}, {
   3.6998303464488187`*^9, 3.69983034708842*^9}, {3.7007727356659083`*^9, 
   3.70077274210872*^9}, {3.7104381305893764`*^9, 3.7104381331465225`*^9}, {
   3.7104381767580175`*^9, 3.710438195411084*^9}, {3.7104382645820403`*^9, 
   3.710438264596041*^9}, {3.71043836684789*^9, 3.71043837175117*^9}, {
   3.710439150525714*^9, 3.710439273581752*^9}, {3.741629362746232*^9, 
   3.741629371502733*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Pq_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Q", "=", 
        RowBox[{"PolynomialQuotient", "[", 
         RowBox[{"Pq", ",", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "2"}]}]}], ",", "x"}], "]"}]}], ",", "\n", 
       "        ", 
       RowBox[{"f", "=", 
        RowBox[{"Coeff", "[", 
         RowBox[{
          RowBox[{"PolynomialRemainder", "[", 
           RowBox[{"Pq", ",", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "2"}]}]}], ",", "x"}], "]"}], ",", "x", ",", 
          "0"}], "]"}]}], ",", "\n", "        ", 
       RowBox[{"g", "=", 
        RowBox[{"Coeff", "[", 
         RowBox[{
          RowBox[{"PolynomialRemainder", "[", 
           RowBox[{"Pq", ",", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "2"}]}]}], ",", "x"}], "]"}], ",", "x", ",", 
          "1"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "*", "g"}], "-", 
         RowBox[{"b", "*", "f", "*", "x"}]}], ")"}], "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", "a", "*", "b", "*", 
          RowBox[{"(", 
           RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
      "  ", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", "a", "*", 
          RowBox[{"(", 
           RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"p", "+", "1"}], ")"}]}], "*", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"2", "*", "a", "*", 
              RowBox[{"(", 
               RowBox[{"p", "+", "1"}], ")"}], "*", "Q"}], "+", 
             RowBox[{"f", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", "*", "p"}], "+", "3"}], ")"}]}]}], ",", "x"}], 
           "]"}]}], ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Pq", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"p", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, 
   3.496524881328264*^9, 3.4965249211883197`*^9, {3.4965250087384424`*^9, 
   3.4965250451984935`*^9}, {3.49652529985885*^9, 3.4965253029988546`*^9}, {
   3.517191226559236*^9, 3.517191229336041*^9}, {3.5198287253245926`*^9, 
   3.5198287655726633`*^9}, {3.5198288337447824`*^9, 3.51982895158739*^9}, {
   3.519831399416889*^9, 3.519831408340105*^9}, {3.519831720371853*^9, 
   3.519831743631494*^9}, {3.519970553363369*^9, 3.5199706076134453`*^9}, {
   3.52001562029325*^9, 3.520015644063284*^9}, {3.5200157954834957`*^9, 
   3.520015804253508*^9}, 3.5200175089158945`*^9, {3.5200175825059977`*^9, 
   3.520017586406003*^9}, {3.5200176214360523`*^9, 3.5200176320860667`*^9}, {
   3.520017873466405*^9, 3.5200178749164066`*^9}, {3.5200179932965727`*^9, 
   3.5200180209466114`*^9}, {3.520018270596961*^9, 3.5200182728669643`*^9}, {
   3.5200183074770126`*^9, 3.5200183169870257`*^9}, {3.52001839766914*^9, 
   3.520018401859146*^9}, {3.5200185551913614`*^9, 3.5200185621613717`*^9}, {
   3.52001866099151*^9, 3.5200186692815213`*^9}, {3.520018969641942*^9, 
   3.5200189750119495`*^9}, {3.5200190192520113`*^9, 
   3.5200190761620913`*^9}, {3.520019228292304*^9, 3.5200192308923073`*^9}, {
   3.520019300152405*^9, 3.5200193016024065`*^9}, {3.523219723708351*^9, 
   3.523219726698355*^9}, 3.5239261085859594`*^9, {3.523926213947344*^9, 
   3.5239262149145455`*^9}, {3.529244622338976*^9, 3.529244627196254*^9}, {
   3.532495288250495*^9, 3.5324952903104973`*^9}, 3.5326625336823483`*^9, 
   3.53266257441402*^9, {3.532662615270492*^9, 3.532662615832093*^9}, 
   3.5326626784662027`*^9, 3.5326627750459723`*^9, {3.5328847109295816`*^9, 
   3.5328847116995826`*^9}, {3.5328850708600855`*^9, 
   3.5328850810400996`*^9}, {3.532885138950181*^9, 3.5328851523001995`*^9}, 
   3.532885263460355*^9, {3.534988477453407*^9, 3.5349884864834194`*^9}, {
   3.5349885726135397`*^9, 3.5349885958135724`*^9}, {3.5404382482189875`*^9, 
   3.540438302943884*^9}, 3.5404401364931045`*^9, {3.541809438780042*^9, 
   3.541809440090044*^9}, {3.5421598892202425`*^9, 3.5421598945045443`*^9}, {
   3.5421603175897436`*^9, 3.54216032486016*^9}, 3.544238899969492*^9, {
   3.5442392337885857`*^9, 3.5442392835314307`*^9}, {3.544309775753148*^9, 
   3.5443097785243063`*^9}, 3.55408056723486*^9, {3.6133472684340744`*^9, 
   3.613347344564181*^9}, {3.6133473748642235`*^9, 3.6133473774542265`*^9}, {
   3.6133474841043763`*^9, 3.6133474972043943`*^9}, 3.613347648784607*^9, {
   3.613348658548527*^9, 3.613348660028529*^9}, {3.6133502338307323`*^9, 
   3.6133502391507397`*^9}, {3.6133503040308304`*^9, 
   3.6133503172808495`*^9}, {3.613350370080923*^9, 3.6133503847109437`*^9}, {
   3.6135962198596864`*^9, 3.613596223989692*^9}, 3.613717674609688*^9, 
   3.6137578051621866`*^9, 3.614118378178152*^9, 3.6161900967422*^9, {
   3.6161907791111608`*^9, 3.616190798281188*^9}, 3.634319262787101*^9, {
   3.6343201365020742`*^9, 3.634320140746317*^9}, 3.634320943604238*^9, {
   3.634321136961297*^9, 3.634321137654337*^9}, {3.636240095534666*^9, 
   3.6362401898680615`*^9}, {3.6362404613285885`*^9, 
   3.6362404688260174`*^9}, {3.636240588402857*^9, 3.636240601017578*^9}, {
   3.6362406354775496`*^9, 3.6362406431039853`*^9}, {3.6362406744537783`*^9, 
   3.6362408554571314`*^9}, {3.636240899960677*^9, 3.636240918051711*^9}, {
   3.6362409890997753`*^9, 3.6362410610878925`*^9}, {3.6362414635899143`*^9, 
   3.6362414702662964`*^9}, {3.636242640280217*^9, 3.6362426413632793`*^9}, {
   3.636308814545595*^9, 3.6363088156486588`*^9}, 3.6365180990054727`*^9, 
   3.6365186222153983`*^9, {3.6367693762936068`*^9, 3.6367693859651604`*^9}, {
   3.636843058731393*^9, 3.636843118843831*^9}, {3.6370899949651794`*^9, 
   3.637089996251253*^9}, {3.6371061783318152`*^9, 3.6371062077664986`*^9}, {
   3.6371901772260847`*^9, 3.63719021446535*^9}, 3.637190258617428*^9, {
   3.637190330334754*^9, 3.6371903734552298`*^9}, {3.637190565498968*^9, 
   3.6371905663881702`*^9}, {3.6371906255182743`*^9, 
   3.6371906508879185`*^9}, {3.6371906960985985`*^9, 3.637190752410098*^9}, {
   3.637190871159908*^9, 3.637190877509119*^9}, 3.637269456910778*^9, {
   3.637270155731748*^9, 3.6372701855874557`*^9}, {3.6372994747480774`*^9, 
   3.6372994814254594`*^9}, {3.6373466816010017`*^9, 3.637346681637004*^9}, {
   3.637346806729159*^9, 3.6373468189048553`*^9}, 3.637348246371502*^9, {
   3.6373483392578144`*^9, 3.637348349081376*^9}, {3.637348440282593*^9, 
   3.6373484421296988`*^9}, {3.637350137343659*^9, 3.6373501642151957`*^9}, 
   3.6373501993142033`*^9, {3.6373506593005133`*^9, 3.637350670931178*^9}, {
   3.6373507190449305`*^9, 3.6373507632854605`*^9}, {3.6373507977774334`*^9, 
   3.6373508096441126`*^9}, {3.637350843596054*^9, 3.637350845239148*^9}, {
   3.6373509043735304`*^9, 3.637350904760553*^9}, 3.6373518486005373`*^9, {
   3.637352242918091*^9, 3.6373522955080986`*^9}, {3.6373525461984377`*^9, 
   3.6373525476205187`*^9}, 3.6375385003623857`*^9, 3.63755506834802*^9, 
   3.6375552671953936`*^9, 3.637555548043457*^9, {3.6376019576799965`*^9, 
   3.637601983630481*^9}, {3.637602878390658*^9, 3.637602885101042*^9}, {
   3.6376031249707613`*^9, 3.637603176641717*^9}, 3.6376213425913973`*^9, {
   3.6380337322073503`*^9, 3.6380337324353633`*^9}, {3.6380338880802655`*^9, 
   3.6380338912394466`*^9}, {3.638041763590719*^9, 3.6380418036390095`*^9}, 
   3.638041956113731*^9, {3.638054255053773*^9, 3.638054258433778*^9}, {
   3.639706553769804*^9, 3.639706594095875*^9}, {3.639706647042368*^9, 
   3.6397067033584666`*^9}, 3.6397081869086723`*^9, {3.6397082313687506`*^9, 
   3.639708235705558*^9}, {3.6397083003520713`*^9, 3.639708358758574*^9}, {
   3.639708392485833*^9, 3.6397085013272247`*^9}, {3.6397086308074517`*^9, 
   3.639708637234663*^9}, {3.639775681981617*^9, 3.6397756929582453`*^9}, {
   3.639955627478554*^9, 3.6399556347309685`*^9}, {3.639955668045874*^9, 
   3.639955707235115*^9}, {3.6399558199415617`*^9, 3.639955915945053*^9}, {
   3.639955970603179*^9, 3.6399559948995686`*^9}, {3.6399560415072346`*^9, 
   3.6399560516258135`*^9}, {3.639957568238559*^9, 3.639957569924655*^9}, {
   3.6399582884387517`*^9, 3.6399582920359573`*^9}, {3.639966953658374*^9, 
   3.639966981699978*^9}, {3.639967021761269*^9, 3.6399670347600126`*^9}, {
   3.6399673516611385`*^9, 3.6399673751114798`*^9}, {3.639967736118128*^9, 
   3.6399677939954386`*^9}, {3.63996783318468*^9, 3.639967838215968*^9}, 
   3.639967882674511*^9, {3.639967952986532*^9, 3.639967953378555*^9}, 
   3.6399680119569054`*^9, {3.639968119054031*^9, 3.6399682153225374`*^9}, {
   3.640123069863057*^9, 3.6401231182231426`*^9}, {3.6401233295723133`*^9, 
   3.640123362363571*^9}, {3.6401235358358755`*^9, 3.640123598095585*^9}, {
   3.6401402648383317`*^9, 3.640140419115156*^9}, {3.6401404516620173`*^9, 
   3.6401404940424414`*^9}, 3.640141016668334*^9, {3.640225664027211*^9, 
   3.640225699881678*^9}, {3.6402258193626885`*^9, 3.6402258589907584`*^9}, {
   3.640226934525999*^9, 3.640226938316806*^9}, {3.640228532510868*^9, 
   3.640228607791402*^9}, {3.6402287320520215`*^9, 3.640228732254822*^9}, {
   3.640228890301901*^9, 3.6402288922051044`*^9}, {3.6402782919652624`*^9, 
   3.6402782926092644`*^9}, {3.640278413074609*^9, 3.640278427367634*^9}, 
   3.6402784635707073`*^9, {3.6402786197289815`*^9, 3.6402786427890253`*^9}, {
   3.640278681291093*^9, 3.6402786931191144`*^9}, {3.6402787288591795`*^9, 
   3.6402787312441835`*^9}, 3.640279833304329*^9, {3.6403687535072107`*^9, 
   3.6403687542422523`*^9}, {3.6404000634346895`*^9, 
   3.6404001178408012`*^9}, {3.640400476676326*^9, 3.640400478818448*^9}, 
   3.6404006875243855`*^9, {3.6404010796988163`*^9, 3.6404012180947323`*^9}, {
   3.6404016785160666`*^9, 3.640401678700077*^9}, {3.6404024011664*^9, 
   3.6404024060056767`*^9}, {3.6404028803798094`*^9, 3.6404028888402934`*^9}, 
   3.6404045407817793`*^9, 3.640404585153317*^9, {3.640449595239214*^9, 
   3.640449624268259*^9}, {3.6404510387567196`*^9, 3.6404510814707875`*^9}, {
   3.6404515834265623`*^9, 3.6404516186856165`*^9}, {3.6404536255891843`*^9, 
   3.640453719363329*^9}, {3.640453796937585*^9, 3.6404537977675858`*^9}, {
   3.640456423081909*^9, 3.6404564246019115`*^9}, {3.6409697444210067`*^9, 
   3.640969762894439*^9}, {3.640970094973425*^9, 3.640970149849722*^9}, 
   3.6409701801821756`*^9, {3.6409702780561485`*^9, 3.640970288447767*^9}, 
   3.6409721369154015`*^9, {3.6409723391336956`*^9, 3.640972339363696*^9}, 
   3.6409724609538727`*^9, {3.640972557584153*^9, 3.6409726254522505`*^9}, {
   3.64097269496635*^9, 3.6409727129003754`*^9}, {3.641003176934488*^9, 
   3.6410031789156914`*^9}, {3.641243217217888*^9, 3.641243250329147*^9}, 
   3.641399846377755*^9, 3.6414051271150074`*^9, {3.6423501063938847`*^9, 
   3.6423502098304677`*^9}, {3.642350306165038*^9, 3.6423503878355827`*^9}, {
   3.6423521753608475`*^9, 3.642352175563648*^9}, {3.642354719477195*^9, 
   3.642354758436464*^9}, {3.642354929742567*^9, 3.6423549338297744`*^9}, {
   3.642355386716552*^9, 3.642355418546608*^9}, {3.642355528513404*^9, 
   3.642355567102272*^9}, {3.6423556696320534`*^9, 3.64235570728092*^9}, {
   3.642367161307391*^9, 3.6423671629073935`*^9}, {3.6423684646785717`*^9, 
   3.642368469329578*^9}, {3.642445083295182*^9, 3.6424451048562407`*^9}, {
   3.6424451686253643`*^9, 3.642445169075365*^9}, {3.642445789160053*^9, 
   3.6424458200881424`*^9}, {3.6424458544472313`*^9, 3.642445881073292*^9}, {
   3.6424459632874827`*^9, 3.642445967047488*^9}, {3.642446009517595*^9, 
   3.642446011706602*^9}, 3.6424460983578444`*^9, {3.642446129444928*^9, 
   3.642446158558995*^9}, {3.642446194926078*^9, 3.6424462218701334`*^9}, {
   3.642448549690071*^9, 3.6424485591081047`*^9}, {3.642701754761916*^9, 
   3.6427017708299446`*^9}, 3.64270211396062*^9, {3.6544496978559275`*^9, 
   3.654449698925929*^9}, {3.698957756055255*^9, 3.698957786228981*^9}, {
   3.698957864102435*^9, 3.6989578880398045`*^9}, {3.699145552111268*^9, 
   3.6991455628468823`*^9}, {3.699145642910462*^9, 3.699145673024184*^9}, {
   3.699148341572817*^9, 3.6991483542745433`*^9}, {3.699148437685314*^9, 
   3.6991484384773593`*^9}, {3.699148511677546*^9, 3.6991485205240517`*^9}, {
   3.6991490191625724`*^9, 3.6991490204526463`*^9}, {3.6991490743207273`*^9, 
   3.6991492252053576`*^9}, 3.699149282475633*^9, {3.699149349942492*^9, 
   3.699149350148504*^9}, {3.699149437522501*^9, 3.6991494407616863`*^9}, {
   3.699150163861046*^9, 3.699150164216066*^9}, {3.699287342558217*^9, 
   3.6992873452882214`*^9}, {3.6992876978956413`*^9, 
   3.6992877002512455`*^9}, {3.6993037196617727`*^9, 3.699303721642976*^9}, {
   3.699303762047047*^9, 3.6993037629674487`*^9}, {3.6993104178542566`*^9, 
   3.6993104235014668`*^9}, {3.6993106209978137`*^9, 3.699310692305539*^9}, {
   3.6993107240203943`*^9, 3.6993107678720713`*^9}, {3.6993125892658987`*^9, 
   3.6993126605112233`*^9}, {3.6993132378682375`*^9, 3.69931324509105*^9}, {
   3.699313554767194*^9, 3.699313556514397*^9}, {3.699313848078909*^9, 
   3.699313851526515*^9}, {3.699314077383712*^9, 3.6993140788969145`*^9}, {
   3.6993163533198366`*^9, 3.699316355784641*^9}, {3.699331230124916*^9, 
   3.6993312301561165`*^9}, 3.699331283711011*^9, {3.6993319516261835`*^9, 
   3.699331960955*^9}, {3.699333167492299*^9, 3.6993332697155*^9}, 
   3.699391119118723*^9, 3.699391334372035*^9, {3.6993929300929418`*^9, 
   3.6993929697170115`*^9}, 3.6993946812963076`*^9, {3.699816804039445*^9, 
   3.6998168112622576`*^9}, {3.699816921835252*^9, 3.699816924424856*^9}, 
   3.6998170435778656`*^9, {3.699817087086342*^9, 3.6998171222956038`*^9}, {
   3.699817623212484*^9, 3.699817653445337*^9}, {3.6998179672710876`*^9, 
   3.6998180074255586`*^9}, {3.699830455820611*^9, 3.699830474259843*^9}, 
   3.6999819622084846`*^9, {3.700405985528469*^9, 3.7004061934394355`*^9}, 
   3.7004221942423286`*^9, {3.7007631313006124`*^9, 3.700763148620603*^9}, {
   3.7104383085165534`*^9, 3.710438344058586*^9}, {3.7104383762664285`*^9, 
   3.71043838031466*^9}, {3.741629385244519*^9, 3.7416293941870303`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"p", "\[NotLessEqual]", 
      RowBox[{"-", "1"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194145462306576`*^9}, {
   3.519793965762905*^9, 3.5197939659969053`*^9}, {3.519794035370227*^9, 
   3.5197940357134275`*^9}, 3.5197951567001967`*^9, {3.5200148228281317`*^9, 
   3.520014823138132*^9}, {3.5232186961069126`*^9, 3.523218698736916*^9}, {
   3.5232187737370214`*^9, 3.523218783487035*^9}, {3.523219745808382*^9, 
   3.5232198038184633`*^9}, {3.5233166533845415`*^9, 
   3.5233166533845415`*^9}, {3.523316704544613*^9, 3.523316704544613*^9}, {
   3.532495227080409*^9, 3.532495227080409*^9}, {3.532662036025874*^9, 
   3.532662042016285*^9}, {3.532662093621176*^9, 3.5326621130120096`*^9}, {
   3.5326622031177683`*^9, 3.5326622031177683`*^9}, {3.532662949547879*^9, 
   3.532662949547879*^9}, {3.5328845132893047`*^9, 3.5328845171593103`*^9}, {
   3.532884565679378*^9, 3.532884567679381*^9}, {3.5418094010499897`*^9, 
   3.541809405659996*^9}, {3.541809496910124*^9, 3.5418095002301283`*^9}, {
   3.544236946091737*^9, 3.544236946091737*^9}, {3.544237054160918*^9, 
   3.544237069595801*^9}, {3.544237125260985*^9, 3.544237129915251*^9}, {
   3.5442387984306846`*^9, 3.5442387984306846`*^9}, {3.544309789160915*^9, 
   3.544309789160915*^9}, {3.554080548494834*^9, 3.554080548494834*^9}, 
   3.554080609284919*^9, 3.575823577497821*^9, {3.6133471492339077`*^9, 
   3.6133471569239182`*^9}, 3.6133472628140664`*^9, {3.6133474013942604`*^9, 
   3.6133474013942604`*^9}, {3.613350296970821*^9, 3.613350362280912*^9}, {
   3.6133504273410034`*^9, 3.6133504275110035`*^9}, {3.6133562644811764`*^9, 
   3.6133562646511765`*^9}, {3.6133595044157124`*^9, 
   3.6133595046157126`*^9}, {3.613416469823567*^9, 3.613416470023567*^9}, {
   3.613416716986427*^9, 3.6134167172564273`*^9}, {3.613429807255195*^9, 
   3.6134298074951954`*^9}, {3.6137576530234847`*^9, 
   3.6137576530234847`*^9}, {3.613775198930053*^9, 3.6137751992290707`*^9}, {
   3.629996923827963*^9, 3.6299969240463634`*^9}, 3.6340584118619814`*^9, {
   3.6343192944279103`*^9, 3.6343192944279103`*^9}, {3.634320903794961*^9, 
   3.634320903794961*^9}, {3.6362410933067355`*^9, 3.6362411065174913`*^9}, {
   3.6362411395833826`*^9, 3.636241331908383*^9}, {3.636241612837451*^9, 
   3.6362416185337768`*^9}, {3.636241889786291*^9, 3.6362418946025667`*^9}, {
   3.63624193574192*^9, 3.636241967473735*^9}, {3.6362420229979105`*^9, 
   3.6362420277821846`*^9}, {3.636299446557777*^9, 3.6362994498219633`*^9}, {
   3.636310843145624*^9, 3.6363108461407957`*^9}, 3.6365624409318013`*^9, {
   3.6365641169576645`*^9, 3.63656411740069*^9}, 3.6367701857899075`*^9, 
   3.636825937688094*^9, {3.636842610008727*^9, 3.636842635253171*^9}, {
   3.6368427132706337`*^9, 3.636842729802579*^9}, {3.6368432052917757`*^9, 
   3.636843205607794*^9}, {3.6370893748947134`*^9, 3.6370893761147833`*^9}, {
   3.6370894581384745`*^9, 3.6370894587625103`*^9}, 3.637186106618013*^9, {
   3.6371861873169546`*^9, 3.6371862112473965`*^9}, {3.6371901568368483`*^9, 
   3.6371901568368483`*^9}, {3.637204072913598*^9, 3.6372040731475983`*^9}, {
   3.637254322579362*^9, 3.6372543227821617`*^9}, {3.637287158200326*^9, 
   3.637287158420326*^9}, {3.6372994552609625`*^9, 3.6372994620913534`*^9}, 
   3.6373466548674726`*^9, 3.637347073520418*^9, {3.6373479580850124`*^9, 
   3.6373479582960243`*^9}, {3.6373480123731174`*^9, 
   3.6373480388736334`*^9}, {3.637350225514702*^9, 3.637350225514702*^9}, {
   3.6373502673090925`*^9, 3.6373502673090925`*^9}, {3.637354939839346*^9, 
   3.637354939983354*^9}, 3.637360969497223*^9, {3.6373668713287883`*^9, 
   3.6373668715037985`*^9}, {3.6375377222798815`*^9, 3.637537722280882*^9}, {
   3.6375383730611043`*^9, 3.6375383730611043`*^9}, 3.6375433134906807`*^9, 
   3.637543578136818*^9, {3.637554937324526*^9, 3.637554938608599*^9}, {
   3.6375552356275883`*^9, 3.637555237618702*^9}, {3.6375554359360447`*^9, 
   3.637555435937045*^9}, {3.637601881035612*^9, 3.637601882132675*^9}, {
   3.637601914663536*^9, 3.6376019150445576`*^9}, {3.637603050031475*^9, 
   3.637603060038048*^9}, 3.6377793840657167`*^9, {3.637826212225559*^9, 
   3.6378262123655596`*^9}, {3.6380540606343565`*^9, 3.638054071575498*^9}, {
   3.6380542376777477`*^9, 3.638054240147751*^9}, 3.6380542887968225`*^9, {
   3.639706395117525*^9, 3.6397063970363283`*^9}, 3.63970653437897*^9, 
   3.6397065752978415`*^9, {3.639706628415935*^9, 3.6397066307559395`*^9}, {
   3.6397066794280243`*^9, 3.639706680270426*^9}, {3.639706924694855*^9, 
   3.6397069744433427`*^9}, {3.6397070177490187`*^9, 3.63970707540672*^9}, {
   3.639707704462225*^9, 3.6397077150546436`*^9}, {3.6397077479083014`*^9, 
   3.639707754179512*^9}, {3.639707810760812*^9, 3.639707811182012*^9}, {
   3.6397087183080053`*^9, 3.6397087184640055`*^9}, {3.639775373373966*^9, 
   3.6397753738179913`*^9}, {3.6397756457485447`*^9, 3.6397756613344364`*^9}, 
   3.6397757806632614`*^9, {3.639954937320079*^9, 3.639954952066922*^9}, {
   3.6399550010107217`*^9, 3.6399550546327887`*^9}, {3.63995510483366*^9, 
   3.6399551496852255`*^9}, {3.6399559371232643`*^9, 3.639955942307561*^9}, {
   3.63995755812298*^9, 3.639957560440113*^9}, {3.639958269957695*^9, 
   3.6399582800112696`*^9}, {3.639964624297142*^9, 3.639964665219483*^9}, {
   3.6399647013375483`*^9, 3.6399647235718203`*^9}, 3.63996671056947*^9, {
   3.6399684218833513`*^9, 3.6399684224223824`*^9}, {3.6399688475757*^9, 
   3.6399688482947407`*^9}, 3.6399698724713206`*^9, 3.6401172754795914`*^9, 
   3.640117463324335*^9, {3.6401230317521906`*^9, 3.6401230356833973`*^9}, {
   3.6401251919971848`*^9, 3.6401251919971848`*^9}, {3.6401341336032906`*^9, 
   3.640134148220516*^9}, {3.640224878036978*^9, 3.6402249187603073`*^9}, {
   3.6402257392913475`*^9, 3.6402257392913475`*^9}, {3.6402274830072856`*^9, 
   3.6402274830072856`*^9}, {3.640278306321289*^9, 3.640278306321289*^9}, 
   3.6403066640131044`*^9, 3.6403964922324286`*^9, {3.6403967434577975`*^9, 
   3.640396746857992*^9}, {3.6403968101046095`*^9, 3.6403968416434135`*^9}, {
   3.6403970964489875`*^9, 3.6403971126259127`*^9}, {3.640397145368786*^9, 
   3.640397148122943*^9}, {3.640397204481167*^9, 3.640397217912935*^9}, {
   3.6403973957451067`*^9, 3.640397409025866*^9}, {3.640968498781332*^9, 
   3.640968505418021*^9}, {3.6410058565520697`*^9, 3.6410058565520697`*^9}, {
   3.642353998244378*^9, 3.6423540107576*^9}, {3.642354588014962*^9, 
   3.642354593522772*^9}, 3.6423563920818853`*^9, {3.642361503226593*^9, 
   3.6423615361506453`*^9}, {3.6423617274962206`*^9, 3.6423617274962206`*^9}, 
   3.6423622342471027`*^9, 3.6423662570407763`*^9, {3.642366369434965*^9, 
   3.642366370804967*^9}, {3.642366433918065*^9, 3.6423664341280656`*^9}, {
   3.6423683944524593`*^9, 3.64236844035853*^9}, {3.642445020332036*^9, 
   3.6424450338760667`*^9}, {3.642445067697136*^9, 3.642445067697136*^9}, {
   3.6424451582603436`*^9, 3.642445158733345*^9}, 3.6424488948389244`*^9, {
   3.6424489610930862`*^9, 3.642448979285124*^9}, {3.685500844636854*^9, 
   3.6855008656780577`*^9}, {3.685504011443985*^9, 3.6855040115559916`*^9}, {
   3.685504209759328*^9, 3.6855042099653397`*^9}, {3.685650792622995*^9, 
   3.6856507941517973`*^9}, 3.698957621707571*^9, {3.6989593914537945`*^9, 
   3.6989593914537945`*^9}, {3.6989595051963005`*^9, 
   3.6989595054063125`*^9}, {3.6989603614702764`*^9, 
   3.6989603614702764`*^9}, {3.699143300938509*^9, 3.699143334483427*^9}, 
   3.6991433679743433`*^9, {3.69914359136012*^9, 3.69914359136012*^9}, {
   3.699145601933118*^9, 3.699145618702077*^9}, {3.6991520679419527`*^9, 
   3.699152068144964*^9}, {3.699287350763831*^9, 3.699287352869835*^9}, {
   3.699287641423542*^9, 3.6992876531235623`*^9}, {3.6992877124660664`*^9, 
   3.699287713214868*^9}, {3.69928949752466*^9, 3.69928949752466*^9}, {
   3.6996382807528796`*^9, 3.6996382854851503`*^9}, {3.699639132397565*^9, 
   3.699639175583441*^9}, {3.6996401555615363`*^9, 3.699640156169937*^9}, 
   3.6996634956364174`*^9, 3.6996635329314833`*^9, {3.6996637207966175`*^9, 
   3.699663724959428*^9}, {3.699663773970214*^9, 3.6996637744482155`*^9}, {
   3.699665022531624*^9, 3.699665022765624*^9}, {3.69975872133532*^9, 
   3.6997587221309214`*^9}, {3.6999816199336214`*^9, 3.699981629206152*^9}, {
   3.699981668613406*^9, 3.699981668613406*^9}, {3.6999818090724397`*^9, 
   3.6999818121436157`*^9}, {3.700427580951833*^9, 3.700427581497834*^9}, 
   3.7104381340725756`*^9, {3.710438204483603*^9, 3.710438205601667*^9}, 
   3.7104382646040416`*^9, {3.7104390517070613`*^9, 3.710439051912073*^9}, {
   3.714198978103505*^9, 3.7141989783805213`*^9}, {3.7416361216545773`*^9, 
   3.741636121934578*^9}, {3.7417199759333577`*^9, 3.7417199760853662`*^9}, {
   3.7419850396200705`*^9, 3.741985039804081*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.160.3", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496539361088545*^9, 3.496604553339698*^9, 3.4966057034313083`*^9, 
   3.496616700485098*^9, 3.4966174711261764`*^9, 3.4966176070863667`*^9, {
   3.4966346740141215`*^9, 3.496634681614132*^9}}],

Cell[TextData[{
 "Derivation: Trinomial recurrence 3a with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", 
   RowBox[{"m", "-", "n"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, {3.518406222526739*^9, 
   3.5184062407267647`*^9}, {3.5184780413497047`*^9, 
   3.5184780566065316`*^9}, {3.524686030845629*^9, 3.5246860328756323`*^9}, {
   3.5260663036242924`*^9, 3.526066303934293*^9}, {3.544474676022669*^9, 
   3.5444746765126696`*^9}}],

Cell["Reference: G&R 2.104", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.496625755369381*^9}, {3.4966258193762937`*^9, 
   3.4966258405299306`*^9}}],

Cell["\<\
Note: This special case of the Ostrogradskiy-Hermite integration method \
reduces the degree of the polynomial in the resulting integrand.\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.4961856693161907`*^9, 3.4961946839914446`*^9, {
   3.496625750314972*^9, 3.4966258381431265`*^9}, {3.496625899856835*^9, 
   3.496625904224842*^9}, {3.637185978744588*^9, 3.63718601404745*^9}, {
   3.637348065725169*^9, 3.6373480745416737`*^9}}],

Cell[TextData[{
 "Rule 1.1.2.x.5: If  ",
 Cell[BoxData[
  RowBox[{"p", "\[NotLessEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"e", "\[Rule]", 
   RowBox[{
    SubscriptBox["P", "q"], "[", 
    RowBox[{"x", ",", "q"}], "]"}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
    3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
    3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
    3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
    3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
    3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
    3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
    3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
    3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
    3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
    3.6370897114519634`*^9, {3.6371862298426294`*^9, 
    3.6371862430090523`*^9}, {3.6371862984515495`*^9, 3.637186301774356*^9}, {
    3.6371887477339196`*^9, 3.6371887602023416`*^9}, 3.6371888596021166`*^9, 
    3.6371893376058793`*^9, {3.6371894438032665`*^9, 3.637189444801668*^9}, {
    3.637189670816266*^9, 3.6371896795854816`*^9}, 3.6371898591411977`*^9, {
    3.6371905099860706`*^9, 3.6371905139328775`*^9}, {3.6371906102906475`*^9, 
    3.637190618012661*^9}, {3.637190835507845*^9, 3.637190848845868*^9}, {
    3.6373466546214585`*^9, 3.637346654683462*^9}, {3.637346791003259*^9, 
    3.6373468018618803`*^9}, {3.637348466687103*^9, 3.6373485922982874`*^9}, {
    3.6373486756750565`*^9, 3.637348682319436*^9}, {3.6373487373425837`*^9, 
    3.6373487401527443`*^9}, {3.637348790702636*^9, 3.637348820705352*^9}, 
    3.63734886438385*^9, {3.6373490182086477`*^9, 3.6373490215648403`*^9}, {
    3.6373490900367565`*^9, 3.6373490904587803`*^9}, {3.637349137269458*^9, 
    3.6373491541974263`*^9}, {3.637349189703457*^9, 3.6373492006570835`*^9}, {
    3.637349234136998*^9, 3.6373492345890245`*^9}, {3.6373499826398106`*^9, 
    3.6373500087653046`*^9}, 3.637554941363757*^9, {3.6375558480506163`*^9, 
    3.6375558769092674`*^9}, {3.6984345570322547`*^9, 3.698434615371339*^9}, {
    3.699638379748542*^9, 3.699638464725402*^9}, {3.6996385688103557`*^9, 
    3.699638579096944*^9}, {3.6996386465268006`*^9, 3.699638653981227*^9}, {
    3.6996387040820923`*^9, 3.699638712045548*^9}, {3.699638747136555*^9, 
    3.6996387917391624`*^9}, {3.699638822945218*^9, 3.6996388344288387`*^9}, {
    3.699640201392374*^9, 3.699640303186756*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522723415243*^9, 
   3.496522765635302*^9}, {3.496523221825941*^9, 3.4965232354159594`*^9}, {
   3.496523793466741*^9, 3.4965238105867653`*^9}, {3.496523849186819*^9, 
   3.496523869436847*^9}, {3.496524240927367*^9, 3.4965242872774324`*^9}, {
   3.496524601367872*^9, 3.496524684427988*^9}, {3.496524967108384*^9, 
   3.4965249730483923`*^9}, {3.49652505695851*^9, 3.4965251102785845`*^9}, {
   3.496525144828633*^9, 3.4965251931087008`*^9}, {3.5193219699389534`*^9, 
   3.5193219718421564`*^9}, {3.5193301896695423`*^9, 3.519330190949544*^9}, {
   3.519970584333412*^9, 3.519970590433421*^9}, {3.519970630913478*^9, 
   3.519970691883563*^9}, {3.523219813418477*^9, 3.523219813418477*^9}, {
   3.532495274800476*^9, 3.532495274800476*^9}, {3.532662806838828*^9, 
   3.532662806838828*^9}, {3.532662956692692*^9, 3.532662956692692*^9}, {
   3.5328847513796377`*^9, 3.5328847523296394`*^9}, {3.5328848329697523`*^9, 
   3.5328848354097557`*^9}, {3.541809412880006*^9, 3.5418094154200096`*^9}, {
   3.541809509150141*^9, 3.541809509150141*^9}, {3.5442389449590654`*^9, 
   3.5442389449590654`*^9}, {3.544239226330159*^9, 3.544239226330159*^9}, {
   3.544309786189745*^9, 3.544309786189745*^9}, {3.5540805633148546`*^9, 
   3.5540805633148546`*^9}, {3.613347171023938*^9, 3.613347171023938*^9}, {
   3.6133475684744945`*^9, 3.6133475684744945`*^9}, {3.613350407440975*^9, 
   3.613350407440975*^9}, {3.613757653545515*^9, 3.613757653545515*^9}, {
   3.634319294439911*^9, 3.634319294439911*^9}, {3.634320903808962*^9, 
   3.634320903808962*^9}, {3.6362396305010676`*^9, 3.636239772998218*^9}, 
   3.636239841428132*^9, {3.6362398796983213`*^9, 3.636239880469365*^9}, {
   3.63623991569838*^9, 3.6362399204736533`*^9}, {3.6362399780699472`*^9, 
   3.6362400389424295`*^9}, {3.636240295738117*^9, 3.636240307909813*^9}, 
   3.6362411836039*^9, {3.6362416844585476`*^9, 3.636241786067359*^9}, {
   3.6362418282937746`*^9, 3.6362418599195833`*^9}, {3.6362419917751245`*^9, 
   3.6362420063029556`*^9}, {3.6368428036528025`*^9, 3.636842806504966*^9}, {
   3.636842840121889*^9, 3.6368429816609845`*^9}, {3.6368430243594265`*^9, 
   3.636843045517637*^9}, {3.637089377538865*^9, 3.637089378066895*^9}, {
   3.6370894593945465`*^9, 3.6370895079703255`*^9}, {3.637089669995592*^9, 
   3.6370896754029016`*^9}, {3.637186189547758*^9, 3.637186189547758*^9}, {
   3.637190101409425*^9, 3.6371901282922726`*^9}, {3.637299468806738*^9, 
   3.637299468806738*^9}, {3.6373467878220773`*^9, 3.6373467888541365`*^9}, {
   3.637350300777007*^9, 3.637350300777007*^9}, {3.6375377233439426`*^9, 
   3.6375377233439426`*^9}, {3.6375383730701046`*^9, 
   3.6375383730701046`*^9}, {3.6375549401116853`*^9, 
   3.6375549401116853`*^9}, {3.637555243557041*^9, 3.637555246842229*^9}, {
   3.6375554367930937`*^9, 3.6375554367930937`*^9}, {3.637601884465809*^9, 
   3.6376018856878786`*^9}, {3.6376030521165943`*^9, 3.637603062297177*^9}, {
   3.638054209525707*^9, 3.6380542097757072`*^9}, {3.6380542499357653`*^9, 
   3.6380542499357653`*^9}, {3.6397066314267406`*^9, 
   3.6397066320819416`*^9}, {3.6397066844824333`*^9, 
   3.6397066844824333`*^9}, {3.6397071372140284`*^9, 
   3.6397071372140284`*^9}, {3.639707870259316*^9, 3.639707870259316*^9}, {
   3.6397756779583874`*^9, 3.6397756779583874`*^9}, {3.6399550996353626`*^9, 
   3.6399550996353626`*^9}, {3.6399551573816657`*^9, 
   3.6399551624919577`*^9}, {3.639955947034831*^9, 3.639955952339134*^9}, {
   3.639957563819306*^9, 3.6399575645633483`*^9}, {3.639958285104561*^9, 
   3.639958285104561*^9}, {3.6399664763060713`*^9, 3.6399664763060713`*^9}, {
   3.639968851985952*^9, 3.6399688525349836`*^9}, {3.640123133261569*^9, 
   3.6401231401723804`*^9}, {3.640134164163744*^9, 3.640134164163744*^9}, {
   3.6402249295699253`*^9, 3.6402249295699253`*^9}, {3.640228508469226*^9, 
   3.640228508469226*^9}, {3.6402782981492753`*^9, 3.640278300159278*^9}, {
   3.640396862457604*^9, 3.640396862457604*^9}, {3.6403971580235095`*^9, 
   3.6403971580235095`*^9}, {3.640397224439308*^9, 3.640397224439308*^9}, {
   3.6409703031313925`*^9, 3.6409703031313925`*^9}, {3.641005862074479*^9, 
   3.641005862074479*^9}, {3.6423487111141305`*^9, 3.6423487293233624`*^9}, {
   3.6423487699870343`*^9, 3.642348788492667*^9}, 3.6423496566295547`*^9, {
   3.6423519275424075`*^9, 3.6423519275424075`*^9}, {3.6423526012397513`*^9, 
   3.6423526031111555`*^9}, {3.642352788463685*^9, 3.642352798200102*^9}, {
   3.642352957286384*^9, 3.6423529631363945`*^9}, {3.642353100325837*^9, 
   3.642353100325837*^9}, {3.6423546142612085`*^9, 3.6423546142612085`*^9}, {
   3.642361764057276*^9, 3.6423617816733017`*^9}, {3.6423618577014256`*^9, 
   3.6423618577014256`*^9}, {3.642361966555603*^9, 3.64236197078861*^9}, {
   3.642365348173086*^9, 3.642365348783087*^9}, {3.642366377492977*^9, 
   3.642366377492977*^9}, {3.642366442026078*^9, 3.64236644314608*^9}, {
   3.642368451846552*^9, 3.6423684855266027`*^9}, {3.6424450491430945`*^9, 
   3.642445072261148*^9}, {3.64244516171835*^9, 3.642445162158351*^9}, {
   3.642445271866639*^9, 3.642445278275651*^9}, {3.6989576217365723`*^9, 
   3.6989576219295835`*^9}, {3.6989593914587946`*^9, 
   3.6989593914587946`*^9}, {3.699143354584577*^9, 3.699143354584577*^9}, {
   3.69914346582694*^9, 3.69914346582694*^9}, {3.6991435097424517`*^9, 
   3.6991435097424517`*^9}, {3.699143593442239*^9, 3.699143593442239*^9}, {
   3.6991436440261326`*^9, 3.6991436440261326`*^9}, {3.6991436749939036`*^9, 
   3.699143702629484*^9}, {3.6991437409206743`*^9, 3.6991437409206743`*^9}, {
   3.6991438705990915`*^9, 3.6991438878880806`*^9}, {3.699143929081436*^9, 
   3.699143929081436*^9}, {3.699145629502695*^9, 3.6991456295036955`*^9}, {
   3.6991487953887734`*^9, 3.6991487953887734`*^9}, {3.699152103596992*^9, 
   3.699152105916125*^9}, {3.699287359765047*^9, 3.699287359765047*^9}, {
   3.6992876671011868`*^9, 3.6992876671011868`*^9}, {3.699287730920899*^9, 
   3.699287731903701*^9}, {3.6992894857089844`*^9, 3.6992894895572042`*^9}, {
   3.69963829439466*^9, 3.69963829439466*^9}, {3.699639205210893*^9, 
   3.699639205210893*^9}, {3.6996392639363966`*^9, 3.6996392736646404`*^9}, {
   3.699640170055962*^9, 3.699640170055962*^9}, {3.6996474152240157`*^9, 
   3.6996474621972113`*^9}, {3.6996635788895645`*^9, 
   3.6996635788895645`*^9}, {3.699663730825038*^9, 3.699663753995079*^9}, {
   3.699663787911561*^9, 3.6996637884419622`*^9}, {3.699665009958002*^9, 
   3.699665009958002*^9}, {3.699758760128394*^9, 3.699758760471595*^9}, {
   3.6999816503393607`*^9, 3.6999816748397617`*^9}, {3.699981972943303*^9, 
   3.6999819735205045`*^9}, {3.7004276271777143`*^9, 3.700427628051316*^9}, {
   3.7104382116050105`*^9, 3.710438212591067*^9}, 3.7104389972739477`*^9, {
   3.7104390560493097`*^9, 3.7104390563433266`*^9}, {3.714198982613763*^9, 
   3.7141989828407764`*^9}, {3.741636176264654*^9, 3.741636176594654*^9}, {
   3.741720042364157*^9, 3.741720042724178*^9}, {3.7419850448193674`*^9, 
   3.7419850451143847`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{
     SubscriptBox["P", "q"], "[", "x", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Integral]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["P", "q"], "[", "x", "]"}], "-", 
          RowBox[{"e", " ", 
           SuperscriptBox["x", "q"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
        RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "+", 
  RowBox[{"e", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "q"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       FractionBox[
        RowBox[{"e", " ", 
         SuperscriptBox["x", 
          RowBox[{"q", "-", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "2"]}]}], ")"}], 
          RowBox[{"p", "+", "1"}]]}], 
        RowBox[{"b", " ", 
         RowBox[{"(", 
          RowBox[{"q", "+", 
           RowBox[{"2", " ", "p"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"q", "+", 
       RowBox[{"2", " ", "p"}], "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "p"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"2", " ", "p"}], "+", "1"}], ")"}], " ", 
        RowBox[{
         SubscriptBox["P", "q"], "[", "x", "]"}]}], "-", 
       RowBox[{"a", " ", "e", " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", "1"}], ")"}], " ", 
        SuperscriptBox["x", 
         RowBox[{"q", "-", "2"}]]}], "-", 
       RowBox[{"b", " ", "e", " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"2", " ", "p"}], "+", "1"}], ")"}], " ", 
        SuperscriptBox["x", "q"]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
   3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
   3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
   3.496524564957821*^9, 3.496524939858346*^9, {3.6133471798439503`*^9, 
   3.6133472129139967`*^9}, 3.634324496589457*^9, 3.636238881042201*^9, {
   3.636239396204667*^9, 3.6362395412429624`*^9}, {3.636239574330855*^9, 
   3.6362395879946365`*^9}, {3.636240389432476*^9, 3.63624040838056*^9}, {
   3.6362414546054*^9, 3.6362414592806683`*^9}, 3.6368252933562307`*^9, {
   3.637089378621927*^9, 3.637089379906*^9}, {3.6370895991555405`*^9, 
   3.637089614212402*^9}, {3.637089648908386*^9, 3.6370896604350457`*^9}, 
   3.6370897114519634`*^9, {3.6371862298426294`*^9, 3.6371862430090523`*^9}, {
   3.6371862984515495`*^9, 3.637186301774356*^9}, {3.6371887477339196`*^9, 
   3.6371887602023416`*^9}, 3.6371888596021166`*^9, 3.6371893376058793`*^9, {
   3.6371894438032665`*^9, 3.637189444801668*^9}, {3.637189670816266*^9, 
   3.6371896795854816`*^9}, 3.6371898591411977`*^9, {3.6371905099860706`*^9, 
   3.6371905139328775`*^9}, {3.6371906102906475`*^9, 3.637190618012661*^9}, {
   3.637190835507845*^9, 3.637190848845868*^9}, {3.6373466546214585`*^9, 
   3.637346654683462*^9}, {3.637346791003259*^9, 3.6373468018618803`*^9}, {
   3.637348466687103*^9, 3.6373485922982874`*^9}, {3.6373486756750565`*^9, 
   3.637348682319436*^9}, {3.6373487373425837`*^9, 3.6373487401527443`*^9}, {
   3.637348790702636*^9, 3.637348820705352*^9}, 3.63734886438385*^9, {
   3.6373490182086477`*^9, 3.6373490215648403`*^9}, {3.6373490900367565`*^9, 
   3.6373490904587803`*^9}, {3.637349137269458*^9, 3.6373491541974263`*^9}, {
   3.637349189703457*^9, 3.6373492006570835`*^9}, {3.637349234136998*^9, 
   3.6373492345890245`*^9}, {3.6373499826398106`*^9, 3.6373500087653046`*^9}, 
   3.637554941363757*^9, {3.6375558480506163`*^9, 3.6375558769092674`*^9}, {
   3.6984345570322547`*^9, 3.698434615371339*^9}, {3.699638379748542*^9, 
   3.699638464725402*^9}, {3.6996385688103557`*^9, 3.699638579096944*^9}, {
   3.6996386465268006`*^9, 3.699638653981227*^9}, {3.6996387040820923`*^9, 
   3.699638712045548*^9}, {3.699638747136555*^9, 3.6996387917391624`*^9}, {
   3.699638822945218*^9, 3.6996388344288387`*^9}, {3.699640201392374*^9, 
   3.699640303186756*^9}, {3.699647473329032*^9, 3.6996476212762947`*^9}, {
   3.6996477503231225`*^9, 3.699647757140334*^9}, {3.699647789652994*^9, 
   3.699647799872012*^9}, {3.6996635381272926`*^9, 3.699663568106946*^9}, {
   3.6996636103432207`*^9, 3.6996636959593735`*^9}, 3.6996638215326204`*^9, 
   3.6996641519799137`*^9, {3.699664299920376*^9, 3.6996643097909403`*^9}, 
   3.699664353564444*^9, {3.7104381348136177`*^9, 3.7104381367777305`*^9}, {
   3.7104382197894783`*^9, 3.7104382200064907`*^9}, {3.710438264613042*^9, 
   3.710438264627043*^9}, {3.710438388832147*^9, 3.710438392487356*^9}, 
   3.7104393142310767`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6996480863611183`*^9, 3.6996480920707283`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Pq_", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q", "=", 
        RowBox[{"Expon", "[", 
         RowBox[{"Pq", ",", "x"}], "]"}]}], ",", 
       RowBox[{"e", "=", 
        RowBox[{"Coeff", "[", 
         RowBox[{"Pq", ",", "x", ",", 
          RowBox[{"Expon", "[", 
           RowBox[{"Pq", ",", "x"}], "]"}]}], "]"}]}]}], "}"}], ",", "\n", 
     "  ", 
     RowBox[{
      RowBox[{"e", "*", 
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"q", "-", "1"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{"q", "+", 
            RowBox[{"2", "*", "p"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
       " ", "\n", "  ", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{"q", "+", 
            RowBox[{"2", "*", "p"}], "+", "1"}], ")"}]}], ")"}]}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "p"}], "*", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"b", "*", 
              RowBox[{"(", 
               RowBox[{"q", "+", 
                RowBox[{"2", "*", "p"}], "+", "1"}], ")"}], "*", "Pq"}], "-", 
             RowBox[{"a", "*", "e", "*", 
              RowBox[{"(", 
               RowBox[{"q", "-", "1"}], ")"}], "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"q", "-", "2"}], ")"}]}]}], "-", 
             RowBox[{"b", "*", "e", "*", 
              RowBox[{"(", 
               RowBox[{"q", "+", 
                RowBox[{"2", "*", "p"}], "+", "1"}], ")"}], "*", 
              RowBox[{"x", "^", "q"}]}]}], ",", "x"}], "]"}]}], ",", "x"}], 
        "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"PolyQ", "[", 
     RowBox[{"Pq", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LeQ", "[", 
      RowBox[{"p", ",", 
       RowBox[{"-", "1"}]}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, 
   3.496524881328264*^9, 3.4965249211883197`*^9, {3.4965250087384424`*^9, 
   3.4965250451984935`*^9}, {3.49652529985885*^9, 3.4965253029988546`*^9}, {
   3.517191226559236*^9, 3.517191229336041*^9}, {3.5198287253245926`*^9, 
   3.5198287655726633`*^9}, {3.5198288337447824`*^9, 3.51982895158739*^9}, {
   3.519831399416889*^9, 3.519831408340105*^9}, {3.519831720371853*^9, 
   3.519831743631494*^9}, {3.519970553363369*^9, 3.5199706076134453`*^9}, {
   3.52001562029325*^9, 3.520015644063284*^9}, {3.5200157954834957`*^9, 
   3.520015804253508*^9}, 3.5200175089158945`*^9, {3.5200175825059977`*^9, 
   3.520017586406003*^9}, {3.5200176214360523`*^9, 3.5200176320860667`*^9}, {
   3.520017873466405*^9, 3.5200178749164066`*^9}, {3.5200179932965727`*^9, 
   3.5200180209466114`*^9}, {3.520018270596961*^9, 3.5200182728669643`*^9}, {
   3.5200183074770126`*^9, 3.5200183169870257`*^9}, {3.52001839766914*^9, 
   3.520018401859146*^9}, {3.5200185551913614`*^9, 3.5200185621613717`*^9}, {
   3.52001866099151*^9, 3.5200186692815213`*^9}, {3.520018969641942*^9, 
   3.5200189750119495`*^9}, {3.5200190192520113`*^9, 
   3.5200190761620913`*^9}, {3.520019228292304*^9, 3.5200192308923073`*^9}, {
   3.520019300152405*^9, 3.5200193016024065`*^9}, {3.523219723708351*^9, 
   3.523219726698355*^9}, 3.5239261085859594`*^9, {3.523926213947344*^9, 
   3.5239262149145455`*^9}, {3.529244622338976*^9, 3.529244627196254*^9}, {
   3.532495288250495*^9, 3.5324952903104973`*^9}, 3.5326625336823483`*^9, 
   3.53266257441402*^9, {3.532662615270492*^9, 3.532662615832093*^9}, 
   3.5326626784662027`*^9, 3.5326627750459723`*^9, {3.5328847109295816`*^9, 
   3.5328847116995826`*^9}, {3.5328850708600855`*^9, 
   3.5328850810400996`*^9}, {3.532885138950181*^9, 3.5328851523001995`*^9}, 
   3.532885263460355*^9, {3.534988477453407*^9, 3.5349884864834194`*^9}, {
   3.5349885726135397`*^9, 3.5349885958135724`*^9}, {3.5404382482189875`*^9, 
   3.540438302943884*^9}, 3.5404401364931045`*^9, {3.541809438780042*^9, 
   3.541809440090044*^9}, {3.5421598892202425`*^9, 3.5421598945045443`*^9}, {
   3.5421603175897436`*^9, 3.54216032486016*^9}, 3.544238899969492*^9, {
   3.5442392337885857`*^9, 3.5442392835314307`*^9}, {3.544309775753148*^9, 
   3.5443097785243063`*^9}, 3.55408056723486*^9, {3.6133472684340744`*^9, 
   3.613347344564181*^9}, {3.6133473748642235`*^9, 3.6133473774542265`*^9}, {
   3.6133474841043763`*^9, 3.6133474972043943`*^9}, 3.613347648784607*^9, {
   3.613348658548527*^9, 3.613348660028529*^9}, {3.6133502338307323`*^9, 
   3.6133502391507397`*^9}, {3.6133503040308304`*^9, 
   3.6133503172808495`*^9}, {3.613350370080923*^9, 3.6133503847109437`*^9}, {
   3.6135962198596864`*^9, 3.613596223989692*^9}, 3.613717674609688*^9, 
   3.6137578051621866`*^9, 3.614118378178152*^9, 3.6161900967422*^9, {
   3.6161907791111608`*^9, 3.616190798281188*^9}, 3.634319262787101*^9, {
   3.6343201365020742`*^9, 3.634320140746317*^9}, 3.634320943604238*^9, {
   3.634321136961297*^9, 3.634321137654337*^9}, {3.636240095534666*^9, 
   3.6362401898680615`*^9}, {3.6362404613285885`*^9, 
   3.6362404688260174`*^9}, {3.636240588402857*^9, 3.636240601017578*^9}, {
   3.6362406354775496`*^9, 3.6362406431039853`*^9}, {3.6362406744537783`*^9, 
   3.6362408554571314`*^9}, {3.636240899960677*^9, 3.636240918051711*^9}, {
   3.6362409890997753`*^9, 3.6362410610878925`*^9}, {3.6362414635899143`*^9, 
   3.6362414702662964`*^9}, {3.636242640280217*^9, 3.6362426413632793`*^9}, {
   3.636308814545595*^9, 3.6363088156486588`*^9}, 3.6365180990054727`*^9, 
   3.6365186222153983`*^9, {3.6367693762936068`*^9, 3.6367693859651604`*^9}, {
   3.636843058731393*^9, 3.636843118843831*^9}, {3.6370899949651794`*^9, 
   3.637089996251253*^9}, {3.6371061783318152`*^9, 3.6371062077664986`*^9}, {
   3.6371901772260847`*^9, 3.63719021446535*^9}, 3.637190258617428*^9, {
   3.637190330334754*^9, 3.6371903734552298`*^9}, {3.637190565498968*^9, 
   3.6371905663881702`*^9}, {3.6371906255182743`*^9, 
   3.6371906508879185`*^9}, {3.6371906960985985`*^9, 3.637190752410098*^9}, {
   3.637190871159908*^9, 3.637190877509119*^9}, 3.637269456910778*^9, {
   3.637270155731748*^9, 3.6372701855874557`*^9}, {3.6372994747480774`*^9, 
   3.6372994814254594`*^9}, {3.6373466816010017`*^9, 3.637346681637004*^9}, {
   3.637346806729159*^9, 3.6373468189048553`*^9}, 3.637348246371502*^9, {
   3.6373483392578144`*^9, 3.637348349081376*^9}, {3.637348440282593*^9, 
   3.6373484421296988`*^9}, {3.637350137343659*^9, 3.6373501642151957`*^9}, 
   3.6373501993142033`*^9, {3.6373506593005133`*^9, 3.637350670931178*^9}, {
   3.6373507190449305`*^9, 3.6373507632854605`*^9}, {3.6373507977774334`*^9, 
   3.6373508096441126`*^9}, {3.637350843596054*^9, 3.637350845239148*^9}, {
   3.6373509043735304`*^9, 3.637350904760553*^9}, 3.6373518486005373`*^9, {
   3.637352242918091*^9, 3.6373522955080986`*^9}, {3.6373525461984377`*^9, 
   3.6373525476205187`*^9}, 3.6375385003623857`*^9, 3.63755506834802*^9, 
   3.6375552671953936`*^9, 3.637555548043457*^9, {3.6414002798449135`*^9, 
   3.641400280390915*^9}, {3.6427017551519165`*^9, 3.6427017708767443`*^9}, 
   3.64270265849543*^9, {3.6789940507722483`*^9, 3.6789940592157307`*^9}, {
   3.6996394764887185`*^9, 3.6996395826159163`*^9}, {3.699639731987588*^9, 
   3.699639834694569*^9}, {3.699647697065228*^9, 3.6996477047056417`*^9}, {
   3.6996479097188053`*^9, 3.699647910452007*^9}, {3.699647961988898*^9, 
   3.699647977085125*^9}, 3.699648142168417*^9, {3.6996481832210894`*^9, 
   3.6996481833146896`*^9}, {3.6996482174163494`*^9, 3.699648236326583*^9}, {
   3.699648524600628*^9, 3.699648525117429*^9}, {3.6996643704064074`*^9, 
   3.6996646319001913`*^9}, {3.699664700350254*^9, 3.6996647014890566`*^9}, {
   3.6996647819639983`*^9, 3.699664784522403*^9}, {3.6996648234262714`*^9, 
   3.6996648510735207`*^9}, {3.6996649011682086`*^9, 
   3.6996649154110336`*^9}, {3.699981636897592*^9, 3.6999816400737734`*^9}, 
   3.6999816846393223`*^9, {3.7004070408433323`*^9, 3.700407090380165*^9}, 
   3.700422160448669*^9, {3.700422897942403*^9, 3.7004229018736095`*^9}, {
   3.7007632098391047`*^9, 3.7007632141503515`*^9}, {3.710438308527554*^9, 
   3.710438344537614*^9}, {3.710438399265744*^9, 3.7104384014908714`*^9}, {
   3.7104393324491186`*^9, 3.7104393337661943`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "Pq", "(", "x", ")", " ", "(", "a", "+", "b", " ", "x", 
      "+", "c", " ", "x", "^", "2", ")", "^", "p", " "}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2510, 45, 45, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3080, 69, 6982, 108, 53, "Subsubtitle"],
Cell[10065, 179, 703, 10, 35, "Subsubsection"],
Cell[10771, 191, 4050, 62, 26, "Subsubsection"],
Cell[14824, 255, 4602, 80, 53, "Subsubtitle"],
Cell[19429, 337, 817, 11, 35, "Subsubsection"],
Cell[20249, 350, 7901, 126, 104, "Code"],
Cell[28153, 478, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[28279, 485, 7358, 114, 53, "Subsubtitle"],
Cell[35640, 601, 854, 12, 35, "Subsubsection"],
Cell[36497, 615, 4117, 63, 26, "Subsubsection"],
Cell[40617, 680, 5199, 88, 53, "Subsubtitle"],
Cell[45819, 770, 817, 11, 35, "Subsubsection"],
Cell[46639, 783, 8590, 141, 104, "Code"],
Cell[55232, 926, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[55358, 933, 6085, 101, 53, "Subsubtitle"],
Cell[61446, 1036, 328, 5, 35, "Subsubsection"],
Cell[61777, 1043, 2748, 46, 29, "Subsubsection"],
Cell[64528, 1091, 4283, 76, 53, "Subsubtitle"],
Cell[68814, 1169, 873, 12, 35, "Subsubsection"],
Cell[69690, 1183, 4670, 89, 104, "Code"],
Cell[74363, 1274, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[74489, 1281, 2904, 53, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[77418, 1338, 11599, 174, 53, "Subsubtitle"],
Cell[89020, 1514, 904, 13, 35, "Subsubsection"],
Cell[89927, 1529, 2140, 52, 45, "Subsubsection"],
Cell[92070, 1583, 17241, 238, 29, "Subsubsection"],
Cell[109314, 1823, 25814, 372, 39, "Subsubsection"],
Cell[135131, 2197, 18081, 286, 215, "Subsubtitle"],
Cell[153215, 2485, 771, 11, 35, "Subsubsection"],
Cell[153989, 2498, 16254, 261, 129, "Code"],
Cell[170246, 2761, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[170372, 2768, 10280, 151, 53, "Subsubtitle"],
Cell[180655, 2921, 807, 12, 35, "Subsubsection"],
Cell[181465, 2935, 8824, 140, 51, "Subsubsection"],
Cell[190292, 3077, 17150, 281, 219, "Subsubtitle"],
Cell[207445, 3360, 771, 11, 35, "Subsubsection"],
Cell[208219, 3373, 15786, 266, 204, "Code"],
Cell[224008, 3641, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[224146, 3649, 10924, 160, 53, "Subsubtitle"],
Cell[235073, 3811, 413, 6, 35, "Subsubsection"],
Cell[235489, 3819, 806, 20, 26, "Subsubsection"],
Cell[236298, 3841, 392, 6, 25, "Subsubsection"],
Cell[236693, 3849, 613, 10, 25, "Subsubsection"],
Cell[237309, 3861, 11257, 164, 26, "Subsubsection"],
Cell[248569, 4027, 6563, 141, 219, "Subsubtitle"],
Cell[255135, 4170, 821, 11, 35, "Subsubsection"],
Cell[255959, 4183, 9795, 183, 154, "Code"],
Cell[265757, 4368, 89, 2, 35, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)